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EDITORIAL 


Des difficultés matérielles, longtemps restées sans solution, ne nous ont pas 
permis de sortir plus tôt ce numéro 71. 

Ces difficultés ont été, dans l’ordre, l'impossibilité de trouver un endroit pour 
installer l’Integral PC, ses disques durs et, surtout, l'imprimante LaserJet; puis 
les démissions successives de ceux des Membres qui savaient se servir de IPC; 
comme ils sont partis sans avoir transmis leur savoir à ceux qui restaient, et que 
les documentations des programmes n'étaient pas toujours faites, on imaginera 
sans peine que la reprise n’était guère facile. 


Or, ce matériel étant le seul qui nous permette de tirer la maquette du Journal 
dans un temps raisonnable, il fallait réapprendre à s’en servir. 

Pierre Franck, malgré qu’il ne dispose pas de beaucoup d’espace s’est proposé 
pour le garder chez lui. Dès lors, nous avons pu, au prix de nombreux essais et 
erreurs, réapprendre tout ce qui nous manquait, et documenter au passage ce qui 
ne l'était pas. Ce qui a représenté un très gros travail, qui nous permet de 
pouvoir relancer l'édition de JPC. 

Les activités professionnelles de Jean Reïbel ne lui permettant plus d'assumer la 
Présidence du Club, il a à son tour démissionné, mais continue à nous donner 
des coups de main, chaque fois qu'il le peut. 

Le Bureau est donc à l'heure actuelle composé de seulement deux Membres, 
Aurel Rottmann et Pierre Franck. Eric Gengoux, dont les articles ont été 
appréciés tant dans JPC que dans certaines Revues Etrangères, s’est proposé 
pour assurer un certain nombre de tâches. Il va sans dire qu’il faut que d’autres 
membres se manifestent pour remplacer ceux qui sont partis. 

Le plus gros travail pour la réalisation de JPC est la saisie des textes et leur 
correction. I1 peut être considérablement réduit si les articles nous parviennent 
sur disquette; nous pouvons exploiter les formats HP-71, IPC (HP-UX), 
MS-DOS (tous types de disquettes). Si vous ne disposez pas de micro, vous 
pouvez nous envoyer vos articles manuscrits - mais ceci doit rester limité, et nous 
recherchons des bonnes volontés pour aider Guy Toublanc dans ce travail de 
resaisie. 

A l'évidence, le Bureau ne pourra pas continuer à fonctionner à deux ou trois : 
aussi une Assemblée Générale Extraordinaire devra-t-elle avoir lieu en octobre, 
pour élire un nouveau Bureau et envisager l’avenir du Club Pour que PPC-Paris 
puisse tourner dans les meilleures conditions, et que les attributions de chacun 
des Membres du Bureau soient réalisables raisonnablement, il faut que le 
Bureau compte au moins cinq Membres... Envoyez-nous donc dès à présent vos 
candidatures, l'avenir du Club en dépend et rien ne pourra se faire sans bonnes 
volontés. 


JPC ne manque pas de matière première pour le moment, nombre d’entre vous 
continuant à se servir de leurs 41, 71 et même 75; les programmes pour la 28 sont 
nombreux, montrant bien le succès de cette machine, et la 48 vient à son tour 
montrer son nez, avec déjà 3 possesseurs rien que parmi les Membres que nous 
connaissons personnellement. Sont-ils les seuls? Faites-nous connaître vos 
réflexions, remarques et découvertes. 

Nous vous souhaitons à tous de bonnes vacances. 


LE BUREAU 
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LE COURRIER DU COEUR 


Pierre David 
33 Bd St Martin 
75003 Paris 


Vend: 
Une imprimante ThinkJet HP-IL : 1500 FF. 


Jean Reïbel 

9 square Victor Fleming 

92350 LE PLESSIS ROBINSON 
Tél (1) 46 31 46 11 


Cherche: 
Carte HPIL pour HP150 


Vend: 
Interface Vidéo (HPIL) 200FF 





ASSEMBLEE GENERALE 
EXTRAORDINAIRE 


Nous allons organiser une assemblée générale 
extraordinaire,prévue pour le mois d'Octobre,mais la 
date est encore inconnue,pour des raisons de 
réservation de salle (nous sommes au mois d’août). 

Il s’agit d'élire des membres du bureau (Nous ne 
sommes que deux,c’est insuffisant) Il faut notamment 
un président et un secrétaire s’occupant du courrier 
(Vous avez pu constater de nombreuses déficiences 
dans ce domaine !) Nous attendons donc de 
nombreuses candidatures. 
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HP-28 


G.Toublanc 
G.Toublanc 


Ecran virtuel 
A propos de phi 
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ECRAN VIRTUEL 


La TOOLBOX de Jean-Paul Barre (JPC 67) 
permettait d'obtenir un écran virtuel de 166 pixels de 
large correspondant à la longueur des lignes 
graphiques de limprimante HP82240. Je vous 
propose quelques petites améliorations permettant de 
gagner un peu de rapidité et d’encombrement 
mémoire. 

Le programme PSET a été réécrit en assembleur avec 
intégration des vérifications de validité des 
paramètres ainsi que des calculs d’arrondis, donc les 
STOF, RCLFet 0 FIX, ne sont plus nécessaires dans 
les programmes LINE, VSP, VPAR, et VCAR. 

La routine LINE a été réécrite pour tracer en continu 
des droites de pente supérieure à 1. 

Les routines DISPFEN et VCAR ont été allégées. 
D'autre part PSET permet maintenant d’aoir les 
AXES dans la DISPOSITION HABITUELLE. 

Il resterait encore à faire une routine LINE en 
assembleur ce qui permettrait de tracer plus 
confortablement des axes ou des asymptotes par 
exemple. 


Le programme assembleur pour HP-28S 


CON(S) #02C67 

CON(S) #0BC97 

CON(S) #07610 

CON(S) #0BC97 

CON(5) #02D12 

CON(2) 4 

NIBHEX 19353425 

CON(S) #02C9% 
debut CON(S) (fin)-(debut) 

GOSBVL #05081 

GOSUB popin 

GOC gtout 

C=0 W 

LC(2) 166 

D=C W 

2A>=C W 

GOYES gtout 

RO=A 

GOSUB popln 

GOC  gtout 

R1i=A 

ASRB 

ASRB 

ASRB 

A=A+1 W 

C=D W 

ACEX W 

GOSBVL #01FB3 

B=B+B W 

D1=D1- 10 


C=DATIA 
D1i=C 
D1=D1+5 
A=DATI A 
C=0 W 
LC(1) 5 
C=A-C A 
B=C-B W 
gtout GOC OUT 
D1=D1+5 
ADIEX 
A=A+B A 
C=RO 
C=C+C A 
A=A+C A 
D1i=A 
A=R1 
C=0 A 
LC(1) 7 
A=A&C A 
C=C-A À 
A=0 B 
A=A+1 B 
GONC  pset20 
pseti0 A=A+A B 
pset20 C=C-1 P 
GONC pset10 
C=DATIB 
A=AIC B 
DATI=AB 
OUT  GOSBVL #050B8 
A=DATOA 
DO0=D0+ 5 
CON(4) #C808 
popin D1=D1+5 
C=DATIA 
CD1EX 
D1i=D1+ 10 
A=DATI1 16 
D1=C 
A=A-1 W 
RTN 
fin  CON(S) #02A4E 
CON(S) #11 
NIBHEX 721935342572 
CON(S) #079C8 
CON(S) #0A220 
CON(S) #0764 
CON(S) #02F90 


Voir chaîne de caractères à assembler en rubrique 
"Le coin des LHEX" 


LINE 


<< R->C3 ROLLD DUP2 PSET R->C SWAP OVER - 


DUP C->R ABS SWAP ABS MAX DUP 
IF 














THEN SWAP OVER / SWAP ROT SWAP 1 SWAP 
START OVER + DUP C->R PSET 
NEXT 
END DROP2 
>> 


DISPFEN 


<< SCR SIZE 166 /IP->XYS <<" Y DUP 31 + 
FOR YY SCR YY 8 /IP DUPS 
IF < 
THEN 166 * X + DUP 136 + SUB + 
ELSE DROP2 
END 8 
STEP CLLCD ->LCD 
27 
>> 


VCAR 


<< VSP-> pxvyws<< 

FOR P P DUP ’X’ STO x * v + EQ ->NUM y * w 
+PSETSs 

STEP ’X’ PURGE 

>> 

>> 


Pour l’emploi de la toolbox relisez JPC 67. 


Guy Toublanc (276) 


A PROPOS DE PHI 


11 y a déjà un certain temps, j'avais créé un lex avec six 
fonctions mathématiques, quatre traitant des nombres 
premiers. Mon but avait été de rendre plus facile la 
vie des programmeurs d’utilités ou de divertissements 
mathématiques. Or il ne semble pas que les gens 
intéressés par ce domaine très particulier, se soient 
manifestés. Je les invite à regarder du côté des 
articles pour HP28 où jai amorcé un bout 
d'explication sur la fonction PHI avec un petit 
problème d’application. Peut-être que cela incitera les 
imaginatifs à se manifester pour nous gratifier 
d’articles divertissants dans dans ce domaine et nous 
éviter les "vilaines pages blanches" . 


Guy Toublanc (276) 


L’'IMPOSSIBLE ETOILE DE DAVID 


Il existe plus d’une demi-douzaine de fonctions 
arithmétiques et parmi celles-ci l'indicateur d’Euler 
ou fonction phi joue un rôle important en théorie des 
nombres ainsi que dans de multiples domaines 
d'applications. 

Si phi a sa place dans JPC Rom, il n’y a aucune raison 
qu’elle soit la belle inconnue de nos HP28. 


phi indique le nombre de nombres inférieurs à un 
nombre donné et relativement premiers avec lui. 

Par exemple phi(10)=4 car les nombres 1,3,7,9 sont 
relativement premiers avec 10. 

par convention phi(1)=1 

si n est décomposable en facteurs premiers tel que n 
= pl'a1*p2"a2*..*pk'ak 


phi(n) = n(1-1/p1)(1-1/p2)....(1-1/pK) 


sin est premier phi(n) = n-1 
phi est une fonction multiplicative comme les autres 
fonctions arithmétiques et a de nombreuses 
propriétés. Elle est liée à une autre fonction 
arithmétique: la fonction de Moebius. 
Pour calculer phi(n) il faut donc connaître les facteurs 
premiers de n. Or, il y a déjà quelques temps, j'avais 
proposé des fonctions en assembeur qui sont tout 
indiquées pour calculer phi très rapidement. Il s’agit 
des fonctions DIVI (JPC 61) et EDIVI (JPC 62). 
DIVI et EDIVI renvoient le plus petit facteur 
premier de n ou 0 si n est premier. 
DIVI admet les arguments jusqu’à 999999999999 
tandis que EDIVI admet les arguments jusque 2”64-1 
c’est-à-dire # 18446744073709551615d mais en mode 
binaire decimal et EDIVI est deux fois plus rapide. 
On peut utiliser EDIVI indifféremment avec les deux 
types d’arguments à l’aide du programme : 
R?B 
<< DUPTYPE0 = 
LE 
THEN DEC R->B 
END 
>> 
et donc pour ceux qui utilisent EDIVI il sera possible 
de mettre dans la variable DIVI le bout de 
programme : 
<< R?B EDIVI >> 





Ainsi pour tout le monde les arguments devront être 
inférieurs à 1E12. 
Voici le programme PHI : 
<< DUP 
WHILE DUP DIVI DUP DUP 1 <> AND 
REPEAT ROT OVER / OVER 1 - * ROT ROT 
WHILE DUP2 MOD NOT 3 PICK 1 <> AND 
REPEAT SWAP OVER / SWAP 
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END DROP 
END DROP DUP 1 == 
<< DROP >> 
<< SWAP OVER / SWAP 1-*>> 
IFTE 
>> 


exemples : 
540 PHI-> 144 
752329095943 PHI -> 752163703380 


La cryptographie pourrait être un domaine de choix 
comme utilisation de phi, mais cela demande des 
développements qui nécessitent un article entier. 
Aussi je me contenterai cette fois d’un modeste 
problème. 


Partons de n points également espacés sur un cercle. 
De combien de manières peut-on tracer une étoile àn 
sommets, sans soulever le crayon, en joignant les 
sommets de 2 en 2, de 3 en 3 etc... si cela est possible. 


La réponse est : 
Cphi(n)-2)/2 
par exemple pour n = 7 (phi(7)-2)/2=2 


il n’y a que 2 polygones étoilés à 7 branches et je vous 
laisse le soin de faire les figures. 

Pour n=6 (phi(6)-2)/2=0 

le polygone étoilé à 6 branches est impossible (d’où le 
titre de l’article). 

Maintenant voyons le problème inverse: pour un 
nombre j d'étoiles différentes qu’elle est la valeur de 
n? 

réponse : on doit avoir phi(n)=2j+2 

est-ce toujours possible ? 

Non. Par exemple pour j=6 2j+2=14 phi(n)=14 
n'existe pas. 26 et 34 sont dans le même cas. 


JPC n'ayant pas de "coin des codes" pour HP28" 
comme la HP71 a son coin des lhex, je vous propose 
un rappel des listes de codes à assembler avec le 
programme de votre choix. 


On remarquera que la présentation des Listings est la 
même que celle adoptée par Paul Courbis et 
Sébastien Lalande dans leur livre bien connu. Je me 
rallie donc à cette méthode et je propose, pour ceux 
qui ne possèdent pas le livre cité, deux programmes 
équivalents aux leurs, pour contrôler les codes entrés. 
Lorsque les codes ont été entrés dans une seule 
chaîne faire PILS puis après le programme terminé 
faire EDIT. Les codes pourront ainsi être relus très 
facilement. Puis faire DEPILS pour obtenir la chaîne 
à assembler. 


PILS 
ot 
DO OVER 1 5 SUB 10 CHR 
+ + SWAP 6 9000 SUB SWAP 
UNTIL OVER “ == 
END SWAP DROP 
>> 


DEPILS 
<< 
WHILE DUP 10 CHR POS DUP 
REPEAT DUP2 1 SWAP 1 - SUB ROT ROT 1 + 
9000 SUB + 
END DROP 
>> 


Toujours pour les gens qui n'auraient pas pu se 
procurer le livre voici une variante du programme qui 
permet de doubler la vitesse d’une HP28S. Cette 
vitesse redevenant normale si la touche <ON> a été 
actionnéc. 


CON(S) #02C96 
debut CON(S) (fin)-(dcbut) 
AD0EX 


LCHEX #FFF00 
D0=C 
DATO=CXS 
D0=-A 
A=DATO A 
D0=D0+ 5 
CON(4) #C808 
fin 


Voici la liste des codes à assembler. 


HP28S DVIT 20 octets 
69C20 32000 13234 00FFF 13415 42130 14216 4808C 


Guy Toublanc (276) 


ECRAN VIRTUEL 


La TOOLBOX de Jean-Paul Barre (JPC 67) 
permettait d'obtenir un écran virtuel de 166 pixels de 
large correspondant à la longueur des lignes 
graphiques de l'imprimante HP82240. Je vous 
propose quelques petites améliorations permettant de 
gagner un peu de rapidité et d’encombrement 
mémoire. 

Le programme PSET a été réécrit en assembleur avec 
intégration des vérifications de validité des 
paramètres ainsi que des calculs d’arrondis, donc les 
STOF, RCLF,et 0 FIX, ne sont plus nécessaires dans 
les programmes LINE, VSP, VPAR, et VCAR. 

















outine LINE a été réécrite pour tracer en continu 
droites de pente supérieure à 1. 

routines DISPFEN et VCAR ont été allégées. 
utre part PSET permet maintenant d’aoir les 
AXES dans la DISPOSITION HABITUELLE. 

Il resterait encore à faire une routine LINE en 
mbleur ce qui permettrait de tracer plus 
confortablement des axes ou des asymptotes par 
exemple. 









Le programme assembleur pour HP-28S 


CON(S) #02C67 
CON(S) #0BC97 
CON(S) #07610 
CON(S) #0BC97 
CON(S) #02D12 
CON(2) 4 
NIBHEX 19353425 
CON(S) #02C96 
debut CON(S) (fin)-(debut) 
GOSBVL #05081 
GOSUB popin 
GOC gtout 
C=0 W 
LC(2) 166 
D=C W 
2A>=C W 
GOYES gtout 
RO=A 
GOSUB popin 
GOC  gtout 
R1i=A 
ASRB 
ASRB 
ASRB 
A=A+1 W 
C=D W 
ACEX W 
GOSBVL #01FB3 
B=-B+B W 
D1=D1-10 
C=DATI A 
D1=C 
D1=D1+5 
A=DATIA 
C=0 W 
LC(1) 5 
C=A-C A 
B=C-B W 
gout GOC OUT 
D1=D1+5 
ADIEX 
A=A+B A 
C=RO 
C=C+C A 
A=A+C A 
D1=A 


A=R1 


LC(1) 7 
A=A&C À 





A=A+1B 
GONC pset20 

pseti0 A=A+A B 

pset20 C=C-1 P 
GONC pset10 
C=DATIB 
A=AIC B 
DATI=AB 

OUT  GOSBVL #050B8 
A=DATO A 
D0=D0+ 5 
CON(4) #C808 

popin D1=D1+5 
C=DATIA 
CDIEX 
D1=D1+ 10 
A=DATI1 16 
Di=C 
A=A-1 W 
RTN 

fin  CON(S) #02A4E 
CON(S) #11 
NIBHEX 721935342572 
CON(S) #079C8 
CON(S) #0A220 
CON(S) #07644 
CON(S) #02F90 


Voir chaîne à assembler en rubrique "Le coin des 
LHEX". 


LINE 


<< R->C3 ROLLD DUP2 PSET R->C SWAP OVER - 
DUP C->R ABS SWAP ABS MAX DUP 
IF 
THEN SWAP OVER / SWAP ROT SWAP 1 SWAP 
START OVER + DUP C->R PSET 
NEXT 
END DROP2 
>> 


DISPFEN 


<< SCR SIZE 166 /IP-> XYS <<" Y DUP 31 + 
FOR YY SCR YY 8 / IP DUPS 

IF < 

THEN 166 * X + DUP 136 + SUB + 

ELSE DROP2 

END 8 
STEP CLLCD ->LCD 
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>> 
>> 


VCAR 

<< VSP-> pxvyws << 
FOR P P DUP”X’ STO x * v + EQ ->NUM y * w + PSETs 
STEP ’X’ PURGE 

>> 

>> 


Pour l'emploi de la toolbox relisez JPC 67. 


Guy Toublanc (276) 
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PROGRAMMES EN BASIC QUI 
ECRIVENT L’'ADRESSE DU 
DESTINATAIRE 
ET LA VOTRE. 


En partant d’une présentation de A. BOLDIREFF 
j'ai écrit 2 programmes qui vous permettent avec la 
Thinkjet d’avoir un en-tête et votre adresse bien 
présentés dans vos lettres. L’exécution du programme 
est coservée dans le vecteur D$, et peut etre répétée 
par une exécution après le STOP. Vous pouvez 
particulariser ces programmes à votre guise. 

Le premier programme ADRESSE est 
conversationnel, le second programme ADNOM 
utilise vos coordonnées dans le DATA. 


Aurel ROTTMAN (289) 


LE "MONDIALE" 


L'expression est sans doute à la mode et notre amour 
du football bien acquis mais en fin de compte on a 
une autre façon d'interpréter cette passion sportive . 
Parce que par ailleurs J.P. Nalin attaque le problème 
du graphisme du HP71 je vous donne un programme 
que j'ai publié dans DATAFILE V7NI et vous 
suggère de lire sans faute l’article de Brian D. STEEL 
(DF VANS/6 p.39). 

Le programme montre le travail et le but (au carré) 
du footballeur. 


A. ROTTMAN (258) 


LA TRANSFORMATION DES 
INSTRUCTIONS BASIC 

DANS UNE SUITE DE SYMBITS. 
Rappel de terminologie: symbit=token ; 
parse= analyse ; buffer= entasseur. 
Pour comprendre l'essentiel du système opérationel il 
faut pouvoir répondre à la suivante question: 
qu'est-ce qu’il se passe quand on tape quelque chose 
sur le display du HP71 et on envoie ENDLINE’ ? 
Pour pouvoir donner une réponse il faut savoir que 
les instructions BASIC, qu’elles soient précedées par 
un numéro de ligne ,ou non, sont représentées 
intérieurement par unc suite de symbits. Si le numéro 
de ligne est absent l'instruction est immédiatement 
exécutable (après avoir actionné la clef ENDLINE’). 
Les plus usuels symbits sont donnés dans la table qui 
suit: 





ul -CF.Comment .D0+1REM -E6. 

UF .DFITHEN .F4 tELSE SES 
tCOMMA .FLUMMAGE .FFiLBLRF .0E. 
(PRMST .F31PRMEN .F8 1CVAL EL. 





1@ AF{LINE# _.F0 (REM -E6. 


tEXTIF .F41GOTO  .D0 1CALL F9. 
tLBLST .6FILITRL .C4 1SUB CL 
t(CREF .EOIXFN  .B3 4FFN .B4. 








Après chaque no. de ligne ou 1@ il y a un octet qui 
donne la longueur de l'instruction et qui pointe sur un 
symbit final (@ ou EOL). Le principe de la suite des 
symbits pour l'interprétation du BASIC est le même 
que le chaînage des fichiers. Si on note les séquences 
formelles : 

A =#Ligne,long.inst. inst. 

B = Longinst. inst. 

C =#ligne,long.inst. 

on a les suites des symbits suivantes: 

A4F,BMEOL 

A,4F,B;t!,comment. DO,FO 

CLBLST,Etiq.4F,B,0F 
C,UF,Expression,t(THEN,tEXTIF,B,0F 
C,UF,Expression (THENLINE#,LINE#,0F 
CUF,Expression(THEN,ILBLRE String  expr.OF, 
(Une etiquette est une chaîne de charactères) 
C,UF,Expression (THEN, tLBLRF,(LITRL,ASCII 
Label,0F 

#Ligne,tCALL,Nom,t(PRMEN,0F 


#Ligne,tCALL,Nom,t(PRMST, P1CVAL,P2,CREF, 
t#,#1CREF,(PRMEN,0F 
#Ligne,(CALL,Nom,(PRMEN, tIN,Nom Fichier,4F 
Linc#,t(CALL,chaîne ASCII entre quotes,0F (Nom 
du Programme entre quotes) 
Line#,(CALL,tLITRL,chaîne ASCII sans quotes,0F 
(Nom du Programme sans quotes) 

Pour un sousprogramme l'obtention des symbits est 
similaire mais (COMMA existe entre les paramètres. 
Dans tous les cas le nom du sousprogramme est 
précédé de {LITRL. Les constantes 
mono-numériques ont comme symbit la valeur ASCII 
correspondante. Les entiers (2-12 dig) sont 
représentés par un octet qui précise le nombre des 
chiffres et un nib pour chaque chiffre (dans l’ordre 
renversée). Une constante flotante est représentée 














par un octet définissant le nBombre des chiffres de la 
mantisse et 3 nibs sous forme de complément par 
rapport à 9 qui représente l’exponent. Les chaînes 


constantes se présentent sous la forme 
“quote,charactères,quote". Les variables sont 
représentées par 1 MH 3 octets. (Ex. 


A$=E0D214=tLBLRF,(SVAR,A ; 
A=0814=1INIG,A) 


Les fonctions et opérateurs sont codées de la façon 
suivante: Fonctions implicites (internes) qui sont 
codées avec un seul octet. 


Les opérateurs de relation qui ont un octet+ un nib, 
qui sert d’identificateur de la relation respective. 
Fonctions externes (XFN Illece) ou mots-clef 
(XWORD) ou "Il? représente l’identificateur du LEX 
en décimal et ’eee’ représente le no. de l'entrée du 
mot-clef toujours en décimal sont codées sous la 
forme d’un symbit tXFN et un autre octet qui donne 
le no. d’ordre de l'ID. On a après un nib, qui donne le 
nombre des paramltres. Une fonction qui n’a pas de 
paramètres est traitée comme un opérateur. 


Les tableaux sont codés sous forme d’un tARRAY 
symbit plus un jusqu’à trois octets qui décrivent le 
nom du tableau et un nib qui donne le nombre 
d'indices. Les fonctions d'exception (Funny funct.) 
sont codées sous la forme: tFFN+ID+Fn#+Long” 


Quand le LEX définissant le mot-clef est absent, on 
décompile seulement le nom du XWORD et dans le 
cas d’une XFN on donne la notation ’XFNIlleee. 


EXEMPLE D'UNE SERIE DES SYNBITS 
POUR UN PROGRAMME BASIC. 
Le detail concernant l’exemple pratique est illustré 
plus bas en prenant comme source le programme 
BASIC qui suit: 


0010 A1=SIN(30) @ DISP A 

0015 N2=COS(A1) @ GOTO 33 
0020 B=PI 

0030 CALL C 

0040 IF X=Y THEN 20 ELSE B=C 
0045 END 


Titre du fichier (16)-en paranthèses le nombre de 
nibs. 


2FA82 4554354502020202 








CODE du fichier (4), $ (2), DATE&HEURRE (10) ; 
($=DRAPEAU & CODE COPIE) 


2FA92 412E005191133098 


Pointeur longueur (5) 9E+2FAA2=2FB40 
Commenc. du fichier qui suit. 

Soustitre (12) (5)=ChaQnage des 
sousprogrammes FFFFF (inexistants) 
(5)=Etiq. ou Fonct. définie par l’usager 
FFFFF (inexistants) tEOL (2) F0\ 





2FAA2 E9000FFFFFFFFFFO 


2FAB2F 





0E Long. instruction 


#ligne 
E+2FAB7=2FACS pointe vers t@ tADIG1 (2) 61, A 
(2) 41, COMMA (2) F1, tINT2 (2) OC, Param. (2) 30 
tSIN (2) 96, t@ (2) 4F 


(4) 0010, (2) 


2FAB3 0100E016141FC00 
2FAC2 3694F 


Long. instruct. (2) 06 6+2FAC7=2FACD pointe vers 
tEOL F0, tDISP (2) CS, À (2) 41, tEOL (2) F0, line# 
(4) 0015 


Longnstr. (2) 0E 2FAD3+E=2FAEI e pointe vers 
4F tADIG2 (2) 62, N (2) 4ECOMMA (2) F1, 
tADIG1 (2) 61, A (2) 41, 1COS (2) 97 


1@ (2) 4F, OF (2) Longinstr. 2FAE3+F =2FAD2 
pointe vers EOL F0, tGOTO (2) DD, tEOL (2) F0, 
20 BCD (8) 


tEOL (2) F0, LINE# (4) 0020, Long. Instr. (2) 
8+2FAF7-2FAFF pointe vers tEOL, B (2) 42, 
1COMMA (2) F1,tPI (2) 9, tEOL (2) FO 

2FAF2 0F020080241F970F 
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L— JPC 71 Page 12 


LINE# (4) 0030,  Longinstr. (2) 
A+2FAB05=2FABOF pointe vers F0, 1CALL (2) F9 
ILITRL (2) 4C, C (2) 43, PRMEN (2) F8, tEOL (2) 
F0 


LINE# (4) (0040, Longinstr. (2) 18 
2FB16+18=2FB2E pointe vers tEXTIF F4, {IF (2) 
DF, X (2) 58, Y (2) 59, (RELOP (2) 8A, (1) 2, aprls 
ETIQ. (2) 4F. 

2FB12 040081FD8595A 824 


1) 4, tTHEN (2) 4F, tEOL (2) OF, (8) BCD 2, 
LEXTIF (2) F4,UNT10 (2) 04 

2FB22 FF00000002004F40 

mener \ \tELSE (2) F5, tEXTIF (2) 
F4, Long.Instr. (2) 08 8+2FB36=2FB3E pointe vers 
EOL, B (2) 42, (COMMA (2) F1, C (2) 43, tEOL (2) 
F0 
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LES INSTRUCTIONS DE 
L'ASSEMBLEUR. 


Les instruction d’un langage ASSEMBLEUR 
diffèrent par rapport aux instructions BASIC parce 
qu’elles sont des operations qui s'effectuent au niveau 
des registres du microprocesseur (CPU). La cellule 
unitaire d’un registre est le demi-octet (nib) c’est à 
dire un ensemble de 4 bits. 

Il y a 4 registres opérationnels pour le traitememt des 
données : A,B,C,D et 5 registres de stockage passager 
(temporel) : RO,R1,R2,R3,R4 qui gardent pour un 
certain temps les données des registres usuels. Ces 
registres ont une longueur de 16 nibs (16*4=64 bits) 
qui ont la structure suivante (le nib le plus H droite 
est notE 0 et celui le plus H gauche 15) : 


0-1B (champs byte ou exponent) (code 6E) 
2XS signe de l’exponent (code 2A) 

0-2 X exponent et son signe (code 3B) 

3-14 M la mantisse (code 5D) 

15S le signe de la mantisse (code 4C) 

0-15 W l'ensemble (whole) du mot (code 7F) 


Un registre spécial de 1 nib , le registre P (pointeur) 
permet de pointer sur un certain nib du registre de 
travail. Le nib pointé est noté aussi avec P et il permet 
la définition d’un nouveau champs: 


0-P WP mot partiel ou mot pointé (code 19) 


Deux autres registres pointeurs ont un rôle essentiel; 
il s’aggit des registres H 5 nibs DO et D1 qui sont 
utilisés pour garder l’adresse de la pile mathématique 
et du compteur du programme. Un autre registre de 5 
nibs PC détermine l'instruction executée par le CPU. 
La partie correspondante aux 12 nibs inférieurs 
constitue le registre d’état ST (utilisé par le logiciel 
d'exploitation). Il existe aussi deux registres d'entrée 
et sortie IN de 4 nibs et OUT de 3 nibs. Un registre 
spécial de 1 bit est le registre du report (CARRY 
register). L'état du registre report est modifié par 
certains calculs et tests logiques. Enfin pour le logiciel 
intérieur il y a encore un registre de 1 nib dont les bits 
ont la signification suivantes: 

Bit 0 XM module externe qui manque. 

Bit 1 SB Bit sticky (utilisé dans des opérations de 
transfert) 

Bit 2 SR demande de service. 

Bit 3 MR Module retiré. 


Quand on lit des données de la mémoire pour le 
transférer dans les registres du CPU le 
microprocesseur place les nibs avec une adresse 
inférieure dans les nibs droits du registre. Quand les 
données sont inscrites en mémoire le CPU place les 
nibs les moins significatifs dans les nibs inférieurs de 
l'adresse. De cette façon dans les deux cas les 
données se trouvent transférer en ordre renversée. 


L’ensemle des instructions de l'ASSEMBLEUR. 


On classifie les instructions en 17 categories: 

1. Instructions GOTO ; elles sont c,l ou tl (c=courtes, 
1=longues,tl=trls longues) et ic ou c(voir plus bas) 

2. Instructions GOSUB qui sont c,Ltl. 

3. Instructions SUBROUTINES RETURN qui sont 
ic,c (ic= inconditionnelles, c=conditionnelles) 

4. Instructions de test (pour les registres,pointeurs, 
état logiciel,état du programmme) 

5. Instructions qui comportent un pointeur. 

6. Instructions sur l’état du programme ou du logiciel. 
7. Instructions de contrôle du système. 

8. Instructions d'exploration des clefs. 

9. Instructions d'opérations sur les registres. 














10. Instructions de manipulation des pointeurs des 
données. 

11. Instructions de transfert des données. 

12. Instructions de transfert de charges. 

13. Instructions de decalage. 

14. Instructions des opérations logiques. 

15. Instructions arithmétiques. 

16. Instructions NO-OP (pas d’opération). 

17. Instructions PSEUDO-OP. 


Sous la forme la plus compacte l’ensemble des 
instructions a été présenté par J. BAKER (VI2 
N2-p.10/12). Il y a la pour chaque instruction le code 
décimal et hexadécimal et le type d'instruction. Il faut 
considérer que le codage d’une instruction peut 
demander de 2 H 18 nibs. Certaines instructions 
contiennent dans le code une sélection du champs du 
registre, une distance de transfert ou une constante. 
J'ai choisi une présentation sur plusieurs colonnes qui 
est donnée en annexe. 

L’Etude de l'ASSEMBLEUR implique d’abord une 
bonne connaissance des programmes internes qui 
forment le système opérationnel de la HP71. 
L’'annexe donne des exemples des programmes 
utilitaires. 

L'âme du système opérationnel est le programme 
’MAIN-LOOP’ (Boucle principale voir description 
qui suit). Chaque fois quand on attend quelque chose, 
on est automatiquement connecté à ce programme. 
Quand on appuie une touche la représentation ASCII 
de cette touche est placée dans l’entasseur de l’'Ecran 
de visualisation. (98 octets à partir de l'adresse 
2F480). L’entaseur de visualisation est distinct de 
l'affichage LCD. Cet affichage est adressable en trois 
segments (les adresses 2E100,2E200, 2E300). Le 
système opérationnel fait que les LCD reflètent la 
configuration de l’entasseur de visualisation. 
Ex. HTAS(PEEKS(2F480",48)) 
HTA$(PEEKS$(’2F480”,48)) sur l’afficheur. 
L'examen syntactique commence quand :(1) la clef 
’ENDLINE” est actionnée , (2) quand le calculateur 
est connecté et un entasseur extérieur de commande 
ou un entasseur de demarage existe et le 
sousprogramme INBS est prêt et pointe vers cet 
entasseur , (3) une clé d’execution directe est 
actionnée (INBS pointe vers la définition de la clé 
dans le fichier des clefs) ,(4) la commande 
TRANSFORM initialise aussi ce processus. Le texte 
sous forme analysé (symbits) est comparé aux 
dictionnaires de base. Tout les mots clefs de base se 
trouvent dans 2 fichiers LEX (ROM1 et ROM). 


donne 


Le programme WRDSCN( analyse d’un mot) essaie, 
pour le texte pointé par D1, de trouver un même 
symbit dans un des fichiers LEX. WRDSCN appelle 
NTOKEN pour trouver un certain lexème (symbit 
donné) .Cette opération est ce qu’on définie par 
’polling (elle précise si un LEX peut répondre 


positivement (il contient un symbit donnE). Le 
processus se fait par un LEX ’poll-handler’ qui au 
moment il est activé précise s’il posède ou non ce 
symbit. Le code est dans le registre B(A) et le registre 
D(A) est le pointeur dans lentaseur des LEX. La 
réponse d’un p.h.LEX est positive si le registre XM 
(le bit du module extmanquant) est XM=0, sinon 
XM=1. 


Programmes Utilitaires. 


GTEXT1 Pour un synbit donné fournit en sortie le 
texte correspondant. 

EOLDC  Verifie l'existence d’une expression 
terminale t@,t!tEOL.\ \EOLXC* Appelle EOLDC 
si l'expression terminale est trouvée; on traite toute 
l'instruction en passant H OUTELA sinon retour 
avec carry clear”. 

VARDC Décompilation des variables. 

LIN#DC décompile et met en sortie un no. de ligne. 
ASCICK Copie des charactlres de la suite d’entrée 
vers l’entasseur de sortie jusqu’à ce qu’on trouve un 
charactire dont le bit supérieur est activé. 

EXPRDC Décompile les expressions pointées par 
D1. 

FILDC* Décompile le fichier spécifié. 

ARYDC Décompile les tableaux compilés par 
ARRYCK. 

LBLDC Au cas ou D1 est sur {LBLRF (le sunbit de 
letiquette) examine l’etiquette ; si elle est littérale, 
elle est ssortie entre quotes ,sinon la chaQne littérale 
est dEcompilée et le ’carry clear’. 

SKIPDC Si un XWORD inconnu est rencontré, 
provoque le saut de D1 à la fin de l'instruction et on 
passe à OUTELA. 

DSPCHA et DSPCHC Envoie, dans l’entasseur de 
l'affichage, les charactères du registre A 
(respectivement B). On a affaire à des programmes 
de visualisation (display is C(D) device’) au niveau 
du CPU du HP71 L’action est effective sur l’entasseur 
de sortie mais par sur les LCD. La réactualisation des 
LCD se fait par BLDDSP. 

BLDDSP est automatiquement appelé par un retour 
charriot ; l'appel est explicite si le display LCD 
impose une mise à jour. Un bit status (EXACT) est 
desactivé si une modification de lentasseur de 
visualisation implique une modification de l’ensemble 
des bits LCD. 

BLDBIT Etablit a un autre niveau (inférieur) le 
format des bits LCD suivant la situation d’un autre 
entasseur. De cette façon on peut introduire les clefs 
VIEW et ERRM. 

KEYSCN réalise le balayage des clefs. Le point 
d'entrée est DEBNCE qui introduit un retardement 
pour empêcher l’omission de certaines clefs qui sont 
mises dans l’entasseur des clefs jusqu’au moment où 
celui-ci est complètement rempli. 
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POPBUF enlève les clefs de l’entasseur. 


DSPRST rétablit l'affichage. 

EXPEXC Execute les expressions par l'examen de la 
suite des synbits et les valeurs respectives sont mises 
sur la pile. 

FNRTNI1 Résume l’execution des expressions après 
avoir mis une valeur sur la pile. 

BF2STK ajoute sur la pile une chaîne de la mémoire. 
STKCHR crée une chaîne sur la pile en utilisant 
ADHEAD. 

ADHEAD ajoute le titre de la chaîne à une chaîne 
placée sur la pile par STKCHR. 

POPIN extrait un argument numérique de la pile. 
POF2N extrait deux arguments. 

POPIS verifie l'existence d’une chaîne sur la pile. 
CLOSET ferme un fichier ouvert. 

CRTF crée un fichier d’un type arbitraire. 

FIBADR détermine l'adresse de l’entasseur des 
fichiers dans le registre DO. 

FINDF trouve un fichier en mémoire d’après son 
nom et type de mémoire. 

FSPEC* execute un fichier spécifié par un synbit afin 
d'établir le nom et type. 

MVMEM* elargit ou contracte le contenu d’un 
fichier. Peut-être utilisé pour effacer un fichier. 
OPENF ouvre un fichier donné par son nom et type. 
PRGFMF efface un fichier de la mémoire. 

PURGET efface un fichier de la mémoire ou disque. 


(voir l’annexe) 
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CONVERSION D'UN NOMBRE 
DECIMAL EN BINAIRE 


Ce programme a pour objet de convertir un entier en 
base décimale en un entier en base binaire. Son usage 
est des plus simple ; on lance le programme et un 
masque de saisie demande l'entier décimal en 
affichant la valeur par défaut de 10 ; une fois entré 
l'entier au clavier, faire ENDLINE ; il apparait alors 
à l'affichage l’entier en base décimale et son 
équivalent en binaire. 

Ce petit utilitaire sait se faire apprécier lorsque l’on 
veut faire des travaux graphiques sur son HP 71 ou 
sur sa Thinkjet ; dans le premier cas, la configuration 
des bits est verticale, et dans le second, la 
configuration est horizontale De quoi vous éviter 
d’avoir à faire des noeuds avec vos méninges !. 

Bon travail... ! 


Jean Paul NALIN 


ECRAN VIRTUEL 


Par deux fois les possibilités d’affichage de graphes 
sur l’écran du HP71 ont été concrctisées dans JPC : 
par Xavier Bille (JCP 42 et 47) 

par Bruno Gil (JPC 59) 

Certains adhérents possèdent le module "GRAPHIC" 
de Pierre David. Ce module est integré dans la 
version E de JPC Rom. Pierre met ainsi un logiciel 
très pratique, à la disposition d’un plus grand nombre 
d'utilisateurs potentiels pour faire du graphisme sur 
imprimante PCL et en particulier sur Thinkjet. 

Pour ceux qui ne possèdent pas ou plus ce type 
d'imprimante, "GRAPHIC" ne leur est, à priori, 
d’aucune utilité, car les fichiers GRAPH générés par 
ce logiciel ne sont qu’imprimables. 

Il fallait donc remédier à cela pour les deux types 
d'affichage "portatifs" : 

- l'écran LCD du HP71 lui-même 

l'écran LCD HPIL CMT décrit par Eric Gengoux 
dans JPC 61. 

Je vous propose deux nouvelles fonctions qui 
transforment une partie de fichier GRAPH en une 
chaîne affichable sous forme graphique : 

- LODS pour l'écran HP71 

- TRANS pour l'écran CMT 

Deux exemples de fichiers basic utilisant ces fonctions 
permettent de se déplacer dans les fichiers GRAPH 
et même de numériser un peu comme avec une 
HP28. 


MODE D'EMPLOI 

Syntaxe des fonctions 

LCD$ (D) 

D = adresse en décimal du début de la zone du 
graphique à afficher 

utilisation : GDISP LCDS$ (D) 

TRANS (H,D) 

H = hauteur, en pixels, de la zone à visualiser 

D = adresse en décimal du début de zone graphique 
à afficher 


utilisation : OUTPUT :LCD ;TRANS (H,D) 


PROGRAMME GLCD71 

















ge du graphique sur l'écran LCD HP71 et 
numérisation. 


RUN GLCD?71: 
le programme demande le nom du fichier GRAPH, 
puis affiche le graphique 


actions des touches : 


[LEFT] déplace à gauche suivant le pas 
[RIGHT ] déplace à droite suivant le pas 
[UP] déplace vers le haut suvant le pas 
[DOWN] déplace vers le bas suivant le pas 
[TOP] affiche le haut du graphique 
[ BOTTOM ] affiche le bas du graphique 
[(1 affiche la partie gauche du graphique 
[)] affiche la partie droite du graphique 

demande le pas 

affiche la partie centrale du graphique 
par défaut ou choisie 

mémorise le centre du graphique 

mémorise l'extrémité droite du 
graphique 

défilement vertical de haut en bas 

défilement horizontal gauche-droite 

demande de numérisation : appel du sous- 
programme DIGIT 

sortie du programme d’affichage sur 
HP71 puis sortie du programme GLCDCMT 
si l'appel s’est fait depuis celui-ci 

sortie du programme 


mn Zx< mo 2% 


[Q] 


Lorsque la demande de NUMERISATION a été faite 
par la touche [ N ] un point clignote. 


actions des touches : 


[LEFT] déplace le point clignotant vers la 
gauche de 1 ou 2 pixels 
[RIGHT ] déplace le point clignotant vers la 
droite de 1 ou 2 pixels 
déplace le point clignotant vers le 
haut de 1 ou 2 pixels 
[DOWN] déplace le point clignotant vers le 
bas de 1 ou 2 pixels 
[S] bascule : fait passer alternativement 
le pas de 1 à 2 ou de 2 à 1 pixels 
mémorise l’origine des coordonnées si 
on a fait coïncider celle-ci avec le 
point clignotant, puis rappelle qu’il 
faut numériser la graduation horizontale 
mémorise la graduation horizontale si 
on a fait coïncider celle-ci avec le 
point clignotant, demande sa valeur et 
rappelle quil faut numériser la 
graduation verticale 
mémorise la graduation verticale si 


[UP] 


[0] 


[U] 


[V] 


on a fait coïncider celle-ci avec le 
point clignotant et demande sa valeur 
donne les coodonnées du point clignotant 
si l'origine des axes et les graduations 
ont été mémorisées, sinon fait BEEP 
[ATTN] sort du mode numérisation et revient à 
l'affichage graphique simple du HP71 


ATTENTION : respectez l’ordre [O][U][V] 
PROGRAMME GLCDCMT 


affichage du graphique sur l'écran LCD CMT et 
possibilité d’appel des sous-programmes de GLCD71 


RUN GLCDCMT : 
le programme demande le nom du fichier GRAPH 
puis affiche la partie centrale du graphique 


actions des touches : 


[LEFT ][RIGHT][UP]J[DOWN][TOP] 
D SUPPRIME 


identiques à celles de GLCD71 hors numérisation 


[P ] demande d'impression de la zone affichée 
sur l'écran CMT 

[H] demande d'affichage du graphique sur 
l'écran HP71 via le programme GLCD71 pour 
numérisation 


REMARQUES : 

Le programme GLCDCMT appelle le 
sous-programme GPARA du programe GLCD71, 
aussi ceux qui utilisent l'écran CMT mais n’ont que 
faire de la numérisation doivent intégrer le 
sous-programme GPARA dans le programme 
GLCDCMT. 

Le programme GLCDCMT est conçu pour des 
graphiques situés au-dessus d’une zone réservée aux 
données du graphique ( fonctionlimites,pas etc). 
Cette zone fait 45 pixels de hauteur. Si ce n’est pas le 
cas remplacez ligne 50 : M=(F-45) par M=F. 


Dans le coin des Ihex vous trouverez les 2 lex : 
LCDLEX pour LCDS et TRANSLEX pour LCD$ et 
TRANS, à vous de choisir suivant vos besoins. 


LE SOURCE DE TRANSLEX 


LEX ’TRANSLEX’ 
ID #5C 

MSG 0 

POLL 0 
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ENTRY LCD 

CHAR #F 

ENTRY TRAN 

CHAR #F 

KEY ’LCD$ 

TOKEN 51 

KEY TRANS 

TOKEN 52 

ENDTXT 
ADHEAD EQU #181B7 
D=AVMS EQU #1A460 
EXPR EQU #0F23C 
MFERR EQU #09393 
MEMERR EQU  #0944D 
POPIS EQU #0BD38 
RNDAHX EQU #136CB 
XXHEAD EQU #I1A4E 
pop GOSBVL RNDAHX 

D1=D1+ 16 

RTN 

NIBHEX 8822 
TRAN CD0EX 

RSTK=C 

GOSUB pop 

D0=A 

D0=D0-2 

GOSBVL RNDAHX 

B=A A 

GOSBVL D=AVMS 

R1=C 

A=C A 

LC(S) 4084 

C=A-C A 

?2C<=D A 

GOYES memerr 

LCHEX 1B3C 

D1=D1-4 

DATI=C4 


LCHEX 1B2A6233305701D 


R0O=C 
C=0 A 
LC(2) 100 
D=C A 
P= 1 
LOOPT D1=D1-12 
C=R0O 
DATI=CM 
loopt D0=D0+ 2 
A=DATOB 
D1=D1-1 
DATI=A 1 
Di=D1-1 
DATI-=AP 
C=C-1B 
GONC loopt 
CD0EX 
C=C+D A 
D0=C 


B=B-1 B 
GONC LOOPT 


OUT GOSBVLD-AVMS 


C=RSTK 

D0=C 

ST=0 0 

P= 0 

GOVLNG ADHEAD 


memerr GOVLNG MEMERR 


NIBHEX 811 


LCD CD0EX 


RSTK=C 
GOSUB pop 
D0=A 
GOSBVL D=AVMS 
R1=C 

A=C A 

C=0 A 

LCG) 288 
A=A-C A 
LC(3) 1282 
RO=C 

LC(3) 161 
CDEX A 
7A<=C A 
GOYES memerr 
CD0EX 

C=C-D A 
D0=C 
D0=D0-2 
LC(2) 16 


LOOP RSTK=C 


A=R0 
CD0EX 
C=A+C A 
D0=C 

P= 8 


loopl1 ASL W 


A=DATO 1 
D0=D0+ 1 
ASL W 
A=DATO 1 
CD0EX 
C=C-D A 
D0=C 
P=P+1 
GONC Jloopi 
P= 15 
LCHEX 7 
B=C S 
C=0 Ww 


loop2 P= 14 


C=C+C W 


loop3 A=A+A W 


GONC decrp 
C=C+1 P 


decrp P=P-1 


GOC  decrb 














P=P-1 GOC Err * 








GOTO loop3 LC(4) #1E00 * charge message à envoyer 
rb B=B1S GOSUB JUMPER * envoie le message 
GONC loop2 CON(S) PUTC  * avec PUTC 
PILE Di=D1-16 GOC Err “indicateur carry armé par erreur 
DATI=CW GOSUB JUMPER * reçoit message de mb 
C=RSTK CON(S)GET  * si bit carry =0, OK, 
C=C-1B * message dans C(7,0) etc. 
GONC LOOP P= 0 * si erreur, #erreur dans P 
GOTO OUT GOSBVLD1C=R3 * restaure les pointeurs 
D0=C 
END C=0 W * efface C(W) 
GOC ZERO  * bit carry armé 
Guy Toublanc (276) * si cond."loop broken", 
*sort un 0 
P= * bit "carry" désarmé = boucle OK, 
*sort un 1 
VERIFICATION DE LA BOUCLE CPEX 14 * Attention, astuce! 
HP:-IL. ZERO CLRST * ST(3:0) doit Atre effacé 


GOVENG FNRTNI1 * sortie 
Ce LEX vérifie la continuité de la boucle HP-IL. 11 @Err GOSUB JUMPER * Routine d’erreur de l'HP-IL 
retourne un code 1 si c’est le cas, 0 sinon. On l’appelle CON(S) ERRORX * point d’entrée non supporté, 
par le mot-clé 10Q. Lex écrit pratiquement sans  * valable seulement avec HP-IL Versions À ou B. 
connaissance de l’HP-IL. Fonctionne correctement  * Le code ci-dessous a été emprunté au fichier JUMPER 
avec des périphériques sans “power down". Je  * du swapdisc 3 de Mike Markov. 
remercie d’avance ceux qui voudront bien m’aider à  * La table des EQUATE a juste été reportée avec 
l'améliorer, pour que le 71 ne se bloque plus  * ceux du reste du Lex. 


lorsqu'un appareil s’éteint sur la boucle. * JUMPER: routine d’accès à la ROM HP-IL. 
+ 
Jack Elhay, 9/494-498 Mitcham Rd. + Routine transparente pour le CPU sauf SB 
Mitcham, Victoria,3132,AUSTRALIA. * 
* (code assembleur) 

LEX ’IOTEST’ * + (prépare CPU pour appel) 

ID #EC * * GOSUB JUMPER 

MSG 0 # * CON(S) (target routine offset) 

POLL 0 ” + (resume assembly code) 

ENTRY SIDY * EN 

CHAR #F ? JUMPER RSTK=C 

KEY ‘7100 * CDIEX 

TOKEN 55 ë D1=(5) SNAPBF 

ENDTXT * DATI=CA write D1 @ SNAPBF 
FNRTNI EQU #0F216 * D1=(2) (SNAPBF)+5 
GETLPs EQU #01D15 * C=RSTK 
PUTC EOU #06B1C * DATI=CW write C(W) @ SNAPBF + 5 
GET EQU #06751 * D1=(4) (SNAPBF) +21 
ERRORX EQU #0342C * DATI=AW write A(W) @ SNAPBF + 21 
SNAPBF EQU #2F7F0 * D1= (2) (SNAPBF)+37 
bLEX EQU #00BFC * C=B A 
I/OFND EQU #1I8BA * CPEX 5 save P @ SNAPBF + 42 
LEXPIL EQU #000FF * P= 6 
eXWORD EQU #00023 * C=0 P 
BSERR EQU #0939A * GONC JUMP0S = bit carry non armé 






D1C=R3 EQU #03047 * C=C1P C:6#0 


it carry armé 
R3=D10 EQU #03526 * JUMPOSP= 7 
NIBHEX 00 ? C=0 P 
SIDY GOSBVLR3=D10 * C=C-1P C:7=9 = mode décimal 
GOSUB JUMPER * DATI=-C8 write B(A),P,Carrymode 
CON(S) GETLPS * @ SNAPBF + 37 
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SETHEX 


Het eenens 


*H présent A(W), B(A), C(W) et D1 disponibles 
“ 


mode hexa pour 1I/OFND 


P= 0 

LC(3) bLEX find the LEX buffer 

GOSBVL I/0FND 

GONC JUMP% si absent, erreur et sortie 
COOPER 
* LEX buffer found; D1 points to it 
* search the LEX buffer for the HPIL ROM entry 
* 

LC(2) LEXPIL C(B)=HPIL ROM ID # 

B-C A 

A=0 A 

A=A+1 A  A(B)=No. de Token 

dans la ROM HP-IL 

JUMP10 C=DATI1 6 

?2C=0 B fin du buffer? 

GOYES JUMP90 oui, sortie 

?B#C B ID correcte? 

GOYES JUMP20 non, essayer suivante 


Re 


* LEX ID correspond; voir si No.token valide 
* 


CSR W 

CSR A  C3:0intervalle Notoken 

?2A<C B trop petit? 

GOYES JUMP20 oui, continuer 

CSR A 

CSR A 

C=C-A B pas de No. de token dans intervalle 


GONC JUMP30 dans intervalle 
JUMP20 Di=D1+ 11 pas dansintervalle; 
entrée suivante 
GONC JUMP10 BE.T. 


ARR 


* entrée routine d’erreur 

* 

JUMP% LC(4) eXWORD "XWORD Not Found” 
GOVLNG BSERR pas de retour erreur 


ÉÉCELETETE 


* LEX table trouvée 
+ 


JUMP30 Di=D1+6 pointeur adresse main table 
C=DATIA adresse main table dans C(A) 
B=C A 


ARR 


* lire offset cible dans RSTK 


+ 


C=RSTK lire address de l’offset 

D1=C mettre dans D1 

D1=D1+5 step over offset field 

CDIEX 

RSTK=C place adresse retour finale sur RSTK 
C=DATIA lire offset dans main table 

C=C+B A ajouter adresse de la main table 
RSTK=C placer adresse cible sur STK 


tatteseetes 


* restaurer registres & saut à routine 
+ 
D1=(S) (SNAPBF)+21 
A=DATIW  restore A(W) 


D1=D1+16 position to carry/mode/B(A) save area 


C=DATI8 
B=C A restore B(A) 

P= 7 vérifier mode 

C=C+1P  sibit carry on, mode hex 

GOC JUMP50 

SETDEC si carry off, decimal mode 
JUMPS50P= 6 

2C#0 P 

GOYES JUMP69 bit carry on si C:7 # 0 
JUMP60P=C 5  restore P from C:5 

D1-(4) (SNAPBF)+5 

C=DATIW  restore C(W) 

D1=(2) SNAPBF 

RSTK=C 

C=DATIA 

D1i=C 

C=RSTK 

RTN 


restore D1 
restore C(A) 
saut à routine cible 





EDITEUR D 
SRRFHIQUES S PROGRAMME 


Ce programme a pour objet d'éditer des graphiques 
sur le HP 71 et sur l'imprimante Thinkjet, et plus 
particulièrement de faire des impressions de pages 
graphiques en continu; il faut être patient, étant 
donné que toutes les routines sont en Basic. 

J'ai voulu ce programme aussi simple et facile à 
comprendre que possible ; je crois y être parvenu. 

Le listing du programme contient de nombreux 
commentaires pour vous expliquer son 
fonctionnement. 

C'est le fruit de nombreuses recherches personnelles 
qui s'expliquent d’autant mieux lorsque l’on sait qu’à 
l'affichage, la configuration des bits est faite de 132 
barres verticales de 8 pixels chacune, alors que pour 
limprimante, celle-ci se fait par "caractères" 
horizontaux de 8 pixels, chacun combinables entre 
eux (allumés/éteints).. 

Voici quelques petits exemples, histoire de se mettre 
dans le bain : 

Soit à l'affichage en mode graphique (GDISPS & Cie) 
l'allumage de tous les points de la ligne du bas : la 
variable (chaine) GDISP$ sera donc faite de 132 
caractères de code ASCII 128 ; si on veut la même 
chose avec la ligne du haut, cela donnera une 
GDISP$ de 132 caractères de code ASCII 1 ; ou 
encore la ligne du milieu (la 4ème en partant du bas) 





mettre C(A) temporairement sur RSTK 
















nera une GDISP$ de 132 caractères de code 
CII 16 ; pour en finir, avec un affichage oK tous les 
s de la ligne horizontale du bas sont allumés et 
em ceux de la ligne horizontale du haut (lignes 1 et 
8), on obtient une GDISP$ de 132 caractères de code 
ASCII 129. ! Je vous fait grâce des autres 
combinaisons possibles...! 

C'est dans ce genre de situation que l’on aimerait 
bien connecter un gazogène à son HP 71 préfèré...! 
(inhumain, quoique...). 

Il est à noter, qu’en tout état de cause, au stade 
primaire un pixel à l'affichage ne peut (en principe, 
donc) faire l'objet d’une impression distincte. Pour 
mémoire, en ce qui concerne la Thinkjet j'ai retenu 
deux codes de caractères distincts : le caractère de 
code O (n’imprime rien, marque un blanc) et le 
caractère de code 255 (imprime huit points joints à 
Yhorizontale) ; de plus on peut, à limpression, 
moduler la dimension verticale du caractère, c’est à 
dire soit imprimer une suite de simples traits 
horizontaux, ou de "pavés", ou bien encore de barres 
verticales : ceci fait qu’un même graphique à l'écran 
peut avoir un nombre infini de représentations à 
l'impression ! Dans le cas d’impressions multifichiers 
en continu, les graphiques seront imprimés dans 
lordre et le degré de verticalite de votre choix sans 
espaces entre eux. De même, si vous faites des 
impressions de fichiers uns à uns, il n’y aura pas 
d'espaces entre eux (si vous n’emettez pas d’avance 
ligne/page) ; de cette façon, vous pouvez définir au 
coup par coup le degré de verticalité de votre 
impression! 
La notion d'image graphique contrôlable devient donc 
une réalité sur le HP 71!. 

Chaque fichier graphique est un fichier DATA de 
2120 octets ; si vous disposez d’un espace RAM de 
320 K (programme déduit), vous pouvez donc 
disposer de 150 fichiers graphiques, ou bien encore de 
60 fichiers graphiques par cassette, et, si vous préfèrez 
de 330 fichiers graphiques par unité de disque 9114... 
Sans préjuger de l’adressage étendu HP-IL et des 961 
périphériques que l’on peut y mettre !. 

De quoi imprimer en continu plusieurs centaines de 
pages graphiques, ce qui je crois, reste un record à 
battre. 

Il faut peut-être se modérer dans ses ambitions 
compte tenu de la lenteur du Basic... 

Mais je n’ai pas pour autant dit mon dernier mot, car 
je vous prépare actuellement une transposition en 
Basic décompilé (fichier BIN) qui résoudra le 
problème une fois pour toutes !. De quoi donner des 
crampes aux utilisateurs d'IBM-PC et autres 
MS/DOS (à moëlle) !. 

Il est aisément concevable d’associer ce programme à 
des fonctions mathématiques/statistiques moyennant 
une légère modification des structures de celui-ci. 
Voici maintenant le mode d'emploi de ce 
programme : 














Vous le lancez et il apparait un masque de saisie 
demandant la largeur de texte en affichant la valeur 
par défaut de 80 : 

Ce paramètre à renseigner n’est autre que le nombre 
de caractères par ligne que vous avez sélectionné sur 
votre imprimante Thinkjet ; cette imprimante vous 
permet d'imprimer  diffèrentes grosseurs de 
caractères et selon le cas, vous pouvez imprimer en 
40,71,80,142 caractères/ligne ; ce paramètre est donc 
indispensable pour alterner correctement entre le 
mode texte et le mode graphique ; aux curieux, je 
signale une possibilité non utilisée ici : il est notement 
possible d'imprimer du texte superposé à du 
graphique ; je ne manquerai pas d’y revenir. 

Ce après quoi il apparait un autre masque vous 
demandant (répondre par [O] pour oui ou [N] pour 
"non“) et avec pour réponse par défaut [O] (‘oui") si 
vous voulez l'impression de matrice(s) graphiques, 
puis un autre masque vous en demandant le nombre 
avec 1 comme valeur par défaut ; cette routine a pour 
but d'imprimer un ou des documents représentant 
schématiquement l'écran de votre HP 71 avec 
indications des rangs verticaux et horizontaux ; 
chaque case correspond à un point à allumer sur 
l'écran ; après avoir décidé du ou des motifs de votre 
dessin, vous remplissez au crayon les cases que voulez 
allumer... Bien entendu, vous pouvez définir plusieurs 
écrans successifs pour un grand dessin ; de cette 
façon, il vous sera très facile, lors de la session, 
d'enregistrer vos coordonnés de points. L’imprimante 
vous imprime ce genre de document, vous évitant 
ainsi la tâche fastidieuse de faire votre/vos croquis à 
la main (que de temps gagné !). 

Ensuite, il apparait un masque vous demandant si 
voulez retravailler sur un fichier déjà crée avec pour 
réponse par défaut [N] (‘non") : si tel est le cas 
répondez en tapant le nom du fichier, sinon tapez [N] 
(non). Il est à noter que si vous répondez par non, 
cela entraine l'élaboration d’une variable "vierge" 
d'impression durant laquelle votre HP 71 émet des 
beeps. Si, par mégarde, vous répondez par "ouf, il y a 
un beep et le masque de saisie réapparaît, vous 
demandez une réponse correcte. Cette opération ne 
peut se faire que fichier par fichier îtant entendu qu’à 
ce stadî vous ne faites que des créations ou des mises 
à jour. 

Ensuite, vient un autre masque vous demandant 
(répondre par [O] "oui" ou [N] "non") avec comme 
réponse par défaut [O] (‘oui”) si voulez l'impression 
des coordonnées du fichier en cours d'édition (s’il ne 
s’agit pas d’une création) pixels par pixels (points) ; si 
vous répondez affirmativement, les coordonnées des 
1056 pixels seront imprimées en commençant par 
celles du pixel le plus en bas à gauche ; il est judicieux 
de combiner cela avec votre matrice précedement 
évoquée ; comme cela, vous savez en permanence 0K 
vous en êtes : simple, n'est-ce pas ?. Là encore, cette 
opération ne peut se faire que fichier par fichier pour 
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les mêmes raisons que précedement. Durant 
l'impression de ces coordonnées, le nom du fichier ct 
son image graphique apparaissent alternativement, 
eficacité oblige. Bien entendu, le nom du fichier est 
imprimé en entête du document. 


Ensuite, le graphique apparait à l'écran puis un 
masque apparait à son tour, vous demandant si vous 
voulez l'impression du graphique (répondre par [O] 
“oui” ou [N] "non”) avec [O] (‘oui") comme réponse 
par défaut ; si vous répondez par l’affirmative, un 
autre masque vous demande l'échelle verticale du 
point graphique à l'impression ; répondre par un 
entier positif supérieur ou égal à 1 (une échelle de 1 
se traduit à l'impression par un point d'environ 1mm 
d'épaisseur verticale). Durant cette routine, le nom 
du fichier et sa représentation graphique apparaissent 
alternativement à l'écran à titre d’aide mémoire ; bien 
entendu, cette routine est d’autant plus longue que 
léchelle verticale du point est élevée Cette 
séquence n'effectue pas d’avance-page/ligne en début 
comme en fin, vous permettant ainsi de superposer 
plusieurs graphiques sans espaces entre eux si vous le 
désirez. Bien entendu, cette séquence ne peut se faire 
que fichier par fichier pour les mêmes raisons déja 
évoquées plus haut. 

ensuite, apparaît un autre masque ("DESSIN 
GRAPHIQUE ?") vous demandant si vous voulez 
entrer en session graphique pour allumer des points 
ou en étcindre selon le/les cas avec comme réponse 
par défaut [O] (‘oui) ; si vous répondez par 
laffirmative, l'affichage du graphique apparait à 
l'écran, puis l’on vous demande si vous voulez allumer 
un pixel (répondre par [O] pour "oui" ou par [N] pour 
“non") ; vous répondrez par l’affirmative pour allumer 
un pixel et par la négative pour le cas contraire ; dans 
chaque cas vous aurez un masque vous demandant 
tout d’abord le rang vertical (1 a 8) puis le rang 
horizontal (1 a 132). Puis vient un autre masque vous 
demandant la suite ("SUITE ? ”) avec [N] (‘non’) 
comme valeur par défaut. Si vous répondez [O] 
(oui”), réapparaitront alors les masques de 
manipulations de pixels (pixels par pixels)... et ainsi 
de suite jusqu’à ceque vous répondiez [N] ("non")... 
J'oubliais presque un détail : à chaque fois que vous 
manipulez un pixel, l’ancien affichage apparait, puis 
vous voyez le pixel manipulé s’allumer ou s’étcindre 
selon le cas, puis le nouvel affichage et enfin la valeur 
de code ASCII du caractire de la chaine GDISPS 
concernée. Simultanément, la variable d'impression 
est mise à jour... 

Ensuite, apparait un masque vous demandant si vous 
voulez imprimer le graphique que vous venez d'éditer, 
avec comme réponse par défaut [O] (oui) (répondre 
par [O] "oui" ou par [N] "non selon le cas)... Mêmes 
remarques que précèdent. 

Il est à noter qu’à chaque séquence d'impression 
graphique, le flag(-60) est armé, ce qui se concrétise 








par l'apparition à droite de l'écran du gros point 
entouré de parenthèses... 

Ensuite, apparait un masque vous demandant si vous 
voulez créer un fichier à partir du graphique que vous 
venez d'éditer (suite à création, misc à jour...) ; dans 
l'affirmative, vous tapez le nom du fichier où stocker 
votre travail (et non pas en tapant [O] (‘oui')) ; 
attention toutefois ; si vous avez déja un fichier sous 
un même nom, l’ancien est purgé et le nouveau prend 
alors sa place !. Dans la négative, répondre par [N] 
(non”). Comme déja évoqué, il s’agit de fichiers 
DATA de 2120 octets chacun contenant deux 
enregistrements, le premier pour l'affichage et le 
second pour l'impression. 

ensuite apparait un masque vous demandant si vous 
voulez procéder à impression en continu de 
plusieurs fichiers en continu (impression 
multifichiers) (répondre par [O] pour "oui" et par [N] 
pour non”) ; dans l’affirmative, apparait un masque 
vous demandant le nombre de fichier à imprimer en 
continu ; répondre par un entier positif supérieur ou 
égal à 1 ; après apparaissent une série de masques 
(autant que de fichiers à imprimer) oK figurent à 
chaque fois le numéro d'ordre ; cette série de 
masques disparait une fois le nombre de fichiers 
atteint. Puis apparait un masque vous demandant 
l'échelle verticale d'impression (déjà évoqué) ; dans 
ce cas l'échelle sera la même pour tous les fichiers à 
imprimer !. Bien entendu, lc nom du fichier en cours 
d'impression et son graphique apparaissent 
alternativement à l'écran ainsi qu’un message 
demadant d’attendre la fin des opérations. Selon la 
nature des paramètres fournis, la durée de cette 
séquence peut varier considérablement ; il convient 
donc de prendre toutes dispositions utiles dans ce cas 
(alimentation secteur, heure de départ de la session et 
emploi du temps personnel. 
Enfin, apparaît un masque vous demandant si vous 
voulez procéder à une autre session d'édition 
graphique, avec [N] (‘non") comme réponse par 
défaut ; si vous répondez négativement, vous terminez 
le programme ; dans l’affirmative [O] (‘oui"), vous 
revenez en début de programme, et ainsi de suite, 
l'ensemble effectuant une boucle parfaite, il vous est 
donc inutile de relancer le programme à chaque fois... 
Ceci est mon premier (ct fait entièrement par moi) 
programme sur HP 71. L’essayer, c’est l’adopter !. 
Bonne et heureuse programmation à tous !. 











Jean Paul NALIN 





















PRINT USING "40x,41A";2$ à PRINT 
BS=XFN82097("#,40x,b'8K3S",Ba,x, 202") 
INPUT TITRE,PREN.ENOM: !;XS,YS 
XHORDB2098 

PRINT A$ à PRINT à D$(1)=AS 

PRINT USING "40x,41A";2$ à PRINT 
BS=XFN82097("#,40x, b'EK3S" ,3d,b'&kOS' ,Ba,b'EK3S! ,20a") 
INPUT /No. Rue, Nom’ ;A,XS,YS 
XWORD82098 

PRINT A$ à PRINT à D$(2)=A$ 
B$=XFN82097("#,40x,b'EK3S" ,5d,2x,20a") 
INPUT CODE, LOCALITE! ;A,X$ 

XVORD82098 

PRINT A$ à D$(3)=A$ à STOP 

PRINT 

PRINT USING "4O0x,41A";2$ à PRINT 

PRINT D$(1) à PRINT 

PRINT USING "40x,41A";2$ à PRINT 

PRINT D$(2) & PRINT 

PRINT D$(3) PRINT 
ES=DATES[7,8)8".'BDATES(4,58' .'&DATES [1,2] 
PRINT USING "30x,82";E$ à PRINT 


RAD ADR 


0100 
0105 
0110 
0115 
0120 
0125 
0130 
0135 
0140 
0145 
0150 
0155 
0160 
0170 
0180 
0190 
0200 


PROGRAMME ADNOM 


DIM DS$(3) [80] ,AS [80] ,B$[200],C$(5) à OPTION BASE 1 
BS=IMAGES("#, 0x b'EKOS’ ,Ba,3x,b'EK3S! , 14) 

DATA Monsieur ,Aurel  ROTTHAN,rue du,Bas HUET,St. GERMAIN en LAYE 
READ CS 

PRINT TO A$ USING B$;27,0$(1),27,C$(2) 

PRINT A$ à PRINT @ D$(1)=A$ 
BS=IMAGES("#,40x,b'BK3S" ,3a,2x,b'BKOS' ,62,2x,b'EK3S' ,8a") 
PRINT TO A$ USING B$;27,'47,1,27,C5(3),27,C5(4) 

PRINT A$ 9 PRINT à DS(2)=AS 
B$=IMAGES("#,4Ox,b'EK3S',5a,2x,19a") 

PRINT TO A$ USING 8$;27,/78100/,C$(5) 
BS=IMAGES("#,40x,b'&K3S",5a,2x, 192") 

PRINT A$ à D$(3)=AS à STOP 

PRINT 

PRINT DS(1) à PRINT 

PRINT DS(2) à PRINT 

PRINT D$(3) à PRINT 


AR DA AA DA 
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0010 
0020 
0030 
0040 
0050 
0060 
0070 
0080 
0090 
0100 
0110 
0120 
0130 
0140 
0150 
0160 
0170 
0180 
0190 
0200 
0210 
0220 
0230 
0240 
0250 
0260 
0270 
0280 
0290 
0300 
0310 
0320 
0330 
0340 
0350 
0360 
0370 
0380 
0390 
0400 
0410 
0420 


0010 
0020 
0030 
0040 
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PROGRAMME ANIM 


! ANIM 25.12.1986 

DESTROY ALL 

DIM B$[180] 
MS=CHRS(192)8CHRS(PO)ECHRS(B3)ECHRS(202)ECHRS (136) 
NS=CHRS(O)BCHRS(O)ECHRS(2)ECHRS(255)ECHRS(178) 

PS=CHRS (64 )ECHRS(160)BCHRS(64)ECHRS(O)ECHRS(O) 

Q$=CHRS(255 )ECHRS(129)ECHRS(145)ECHRS(145)ECHRS(231) 
RS=CHRS(255)&CHRS(129)BCHRS(129)ECHRS(129)ACHRS(255) 
SS=CHRS(255)ECHRS(17)ECHRS(17)ECHRS(17)ECHRS(255) 
TS=CHR$(255)ECHRS(128)ECHRS(128)ECHRS(128)ECHRS( 128) 

FOR 1=1 TO 40 

IF 1=21 THEN P$=CHRS(O)BCHRS(32)ECHRS(BO)ECHRS(32)ECHRS(0) 
IF 1=22 THEN PS=CHRS(O)ECHRS(O)BCHRS(16)ECHRS(4O)ECHRS(16) 
IF 1>=24 THEN PS=CHRS(D)&CHRS(2)ECHRS(S)ECHRS(2)ECHRS(O) 

IF 1225 THEN MS=CHRS(192)8CHRS(BB)ECHRS(61)ECHRS(202)ECHRS(141) 
A=.08 

IF 1>=4 THEN A=.05 

IF 1>=6 THEN A=.02 

IF 1>26 THEN 
IF 1=40 THEN A=.45 

IF I#4O THEN GDISP BS$ENS 
WAIT A 

GDISP BSEMSEPS 

MAIT A 

1F 1>25 THEN GDISP B$ 
WAIT A 

IF 1<5 THEN K=5 

IF 1>5 THEN K=10 

1F 1>10 THEN K=20 
FOR J=1 TO K STEP 8 
B$=BS&CHRS(0) 

IF B$(180]#"" THEN STOP 
WAIT A 

NEXT J 

NEXT 1 

GDISP B$8Q$ 

WAIT A 

GDISP BSSOSERS 

HAIT A 

GDISP BSEOSERSESS 
HAIÏT A 

GDISP BSSOSERSESSETS 








HR ARR DD RH RAA OA 


PROGRAMME DECBIN 


DESTROY N,N$ @ DEF FNT(N,J)=INT(2*FP(N/2"(J+1))) 
NS=un 

INPUT "NBR DECIMAL ? ","10";N 

FOR J=7 TO O STEP -1 














0050 
0060 
0070 
0080 


NS=NSESTRSCFNTON, J)) [1,1] 
HEXT J 

DISP "DEC";N; 
DESTROY N,NS 





MBIN ";N$ 


ARR RU AARRAAAAAOO 


0002 
0004 
0006 
0008 
0010 
0012 
0014 
0016 
0018 
0020 
0022 
0024 
0026 
0028 
0030 
0032 
0034 
0036 
0038 
0040 
0042 
0064 
0046 
0048 
0050 
0052 
0054 
0056 
0058 
0060 
0062 
0064 
0066 
0068 
0070 
0072 
0074 
0076 
0078 
0080 
0082 
0084 
0086 
0088 
0090 
0092 





PROGRAMME PIXEL 


DESTROY A$,BS,CS,MS,M1$,M2S,RS,R15,R25,R3S,RGS,PS,C,E9,M,M1,X,Y,2,21 à STD 
DEF FNPCY,C)=INT(2*FPCY/2"(C+1))) 

DIM A$[132],C$(1056) à CFLAG 0,1,3 

INPUT "LARGEUR DE TEXTE ? ","80";2 9 Z1=CEIL((Z-28)/2) à 1F Z=40 THEN 21=1 
IF Z<40 OR Z>142 THEN BEEP à GOTO 8 

LINPUT "IMPRESSION MATRICE 2 ","O";R3$ 

1F R3$="O" THEN GOTO 16 ELSE IF R3: 
INPUT "NOMBRE DE MATRICES ? 1," 
FOR 1=1 10 H à PRINT CHRS(12) 
PRINT TAB(Z1);"  MATRICE GRAPHIQUE "à PRINT TAB(Z1);"######AMAERAAMAAA#AEAN 
PRINT TAB(21);" 1 2 3 4 5 6 7 8" 

PRINT CHRS(27)8"&L8D" à PRINT TAB(Z1);"A####A###EARE#MEMEAHEEEN à FOR E=1 TO 132 
DESTROY E1$ à 1F E<10 THEN E1$="O0"BSTRS(E) 

IF E<100 AND E>=10 THEN E1S="O"&STRS(E) 

1F E>=100 THEN E1S=STRS(E) 

PRINT TAB(Z1);CHRS(27)&"&D"&"[]:[J:[): (1: 0): [):[):[)"ÉCHRS(27)E"éda a" MARS 

NEXT E @ PRINT TAB(21);"######it HARREREAN à PRINT CHRS(27)8"8L6D" à DESTROY E1$ 
PRINT TAB(Z1);" 1 2 3 4 5 6 7 8" à PRINT CHRS(12) 

PRINT CHRS(12) 

NEXT 1 

LINPUT "REPRISE FICHIER ? ","NU;R2S 

IF R2$="N" THEN DISP MATTENDEZ..." à GOTO 46 ELSE GOTO 48 

FOR P=1 TO 1056 à BEEP 50,.02 à C$[P,PJ=CHR$(O) 2 NEXT P à GOTO 98 

THEN BEEP @ DISP "NOM DU FICHIER ? " à WAIT 1 & GOTO 42 

AND R2$#"O" THEN ASSIGN #1 TO R2$  READ #1,0;C$ à READ #1,1;A$ 

IF R2S$#"N" AND R2$#"O" THEN ASSIGN #1 TO * 

IF R2S#MN" AND R2$#"O" THEN DISP "FICHIER "ER2S à WAIT 1 @ GDISP AS à WAIT 5 

LINPUT MLISTE COORDONNEES ? ","O";PS 

AND PS#"N" THEN BEEP à GOTO 56 

AND R2S$#"N' AND R2$#"0" THEN GOSUB ’XYCORD’ à SFLAG 1 à GOTO 180 

AND R2S$="N" THEN BEEP à DISP "FICHIER CREE VIDE" 9 HAIT 1 9 GOTO 106 

IF PS="N" AND R2S#"N" AND R2S#"O" THEN SFLAG 1 à GOTO 180 

IF PS="N" AND R2$="N" THEN GOTO 98 

2XYCORD' : 

PRINT CHR$(12) @ X=1 à N1=925 à N2-1056 à E1$=CHRS(27)&"8dD" à E2S-CHRS(27)2"&da" 
PRINT TAB(Z/4);E1S&"COORDONNEES DU FICHIER "&R2SBE2S8CHRS(10)ECHRS(13)ECHRS(13) 

DIM C5$(132] à C5$=CSIN1,N2] 9 GDISP AS 

FOR 1=1 T0 132 

IMAGE "[ Rang vertical vwv , Rang horizontal hhh ] PIXEL "32,","32" ETEINT" 

IMAGE K,"L Rang vertical vwv , Rang horizontal hhh ] PIXEL "32,","32" ALLUME",K 

IF CS$[I,1]=CHR$(O) THEN PRINT USING 78;X,1 

IF CSS[I,11=CHRS(255) THEN PRINT USING 80;E1$,X,1,E2$ 

MEXT 1 

X=X+1 à N1=N1-132 à N2=N2-132 

IF X<9 THEN DISP "FICHIER ";R2$ à WAIT 2 @ GOTO 74 

PRINT CHR$(12) PRINT CHRS(12) 





" THEN GOTO 42 ELSE GOTO 12 
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0094 DESTROY X,N1,N2,C5$,E1$,E2$ 

0096 RETURN 

0098 GDISP A$ à WAIT 1 à LINPUT "IMPRESSION ? "," 
0100 1F R$#"O" AND RS#"N" THEN BEEP à GOTO 98 
0102 IF R$="O" THEN GOSUB "PRGRAPH" 

0104 DESTROY R$ 

0106 LINPUT "DESSIN GRAPHIQUE ? ","O";RS à IF RS#"O" AND RS#"N" THEN BEEP à GOTO 106 
0108 IF R$="N" THEN GOTO 190 

0110 LINPUT MALLUMER PIXEL ? ","O";RS 

0112 IF R$="O" THEN GOTO 126 

0114 IF R$="N" THEN GOTO 118 

0116 1F RS#"O" AND RS#"N" THEN BEEP à GOTO 110 

0118 INPUT "RANG VERTICAL ? " Y @ IF Y<i OR Y>8 THEN BEEP à GOTO 118 

0120 INPUT "RANG HORIZONTAL ? " 8 1F X<1 OR X>132 THEN BEEP à GOTO 120 

0122 1=0 

0124 GOTO 132 

0126 INPUT "RANG VERTICAL ? " Y @ 1F Y<1 OR Y>8 THEN BEEP à GOTO 126 

0128 INPUT "RANG HORIZONTAL ? ","1";X à IF X<1 OR X>132 THEN BEEP à GOTO 128 





“RS 






























0130 1=1 

0132 IF 1=0 THEN DISP "PIXEL E €"; " à BEEP à WAIT 1 
0134 1F 1=0 AND Y=1 THEN C$1924+X,924+X]=CHR$(O) 

0136 1F 1=0 AND Y=2 THEN C$[792+X,792+X]=CHR$(O) 

0138 1F 1=0 AND Y=3 THEN C$[660+X,660+X]=CHR$(0) 

0140 IF 1=0 AND Y=4 THEN C$[528+X,528+X]=CHR$(0) 

0142 1F 1=0 THEN CS$[396+X,396+X]=CHR$(O) 

0144 1F 1=0 THEN C$[264+X,264+X]=CHR$ (0) 

0146 1F 1=0 THEN CS[132+X,132+X]=CHRS(0) 

0148 1F 1=0 THEN CSIX,XI=CHRS(0) 

0150 1F 1=1 THEN DISP "PIXEL À €";Y; "à BEEP à VAIT 1 
0152 1F 1=1 AND Y=1 THEN C$1924+X,924+X]=CHRS(255) 

0154 IF 1=1 AND Y=2 THEN C$[792+X,792+X]=CHR$(255) 

0156 1F 1=1 AND Y=3 THEN C$[660+X,660+X]=CHRS(255) 

0158 1F 1=1 AND Y=4 THEN C$[528+X,528+X]=CHRS(255) 

0160 IF 1=1 AND Y=5 THEN C$(396+X,396+X]=CHR$(255) 

0162 1F 1=1 AND Y=6 THEN CS(264+X,264+X]=CHRS(255) 

0164 1F 1=1 AND Y=7 THEN C$[132+X,132+X]=CHRS(255) 


0166 IF 1=1 AND Y=8 THEN C$[X,XJ=CHRS(255) 

0168 DISP CHR$(27)&"J" à IF NOT FLAG(O) THEN DIM B$[132] 

0170 1F NOT FLAG(O) THEN A$=GDISPS à C=HUMÇ(AS[X]) 

0172 1F FLAG(O) THEN GDISP B$ à A$=GDISPS à C=HUM(AS[X]) 

0174 IF 1 AND NOT FNP(C,8-Y) THEN C=C+2"(8-Y) 

0176 1F NOT 1 AND FNPCC,B-Y) THEN C=C-2"(8-Y) 

0178 AS[X,X]=CHR$(C) à B$=A$ à DISP "CHR RANG "ESTRS(X)E" = MESTRE(C) À AIT 1 
0180 GDISP A$ à AIT 5 à BEEP @ IF FLAG(1) THEN DIM B$[132] à BS=AS à CFLAG 1 
0182 LIMPUT "SUITE ? ","N";R1S 

0184 1F R1$="N" THEN GOTO 190 

0186 1F R1$="O" THEN SFLAG O à GOTO 98 

0188 1F R1$#"0" AND R1$#"N" THEN BEEP à GOTO 182 

0190 LINPUT "IMPRIMER GRAPHIQUE ? " 
0192 IF R&$="N" THEN GOTO 230 ELSE IF R4$#"O" AND R4S#" 
0194 PRGRAPH! : 

0196 IF NOT FLAG(3) THEN INPUT ECHELLE VERTICALE ? 
0198 1F E9<1 AND NOT FLAG(3) THEN BEEP à GOTO 196 
0200 DISP MATTENDEZ..." @ POKE "2F6E7","8" @ PHIDTH INF à ENDLINE "" à PRINT CHRS(27)8&"*r1280sA" 
0202 E=1 à N1=1 à N2=132 à C2$="" à FOR EO=1 TO 14 à C2$=CHR$(O)8C2$ à NEXT EO 

0204 BEEP à DIM C1$[146] à C1$=C2$8C$[N1,N2] à N1=N1+132 à N2=N2+132 

0206 BEEP @ IF FLAG(3) THEN DISP "FICHIER "&MS(1)&"..." à WAIT 1 

0208 BEEP @ IF FLAG(3) THEN DISP "EN COURS D'IMPRESSION" à VAIT 1 à GDISP A$ 











O" THEN GOSUB ’PRGRAPH’ à GOTO 230 
" THEN BEEP à GOTO 190 
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0210 
0212 
0214 
0216 
0218 
0220 
0222 
0224 
0226 
0228 
0230 
0232 
0234 
0236 
0238 
0240 
0242 
0244 
0246 
0248 
0250 
0252 
0254 
0256 
0258 
0260 
0262 
0264 
0266 
0268 
0270 
0272 
0274 
0276 
0278 
0280 
0282 


0001 
0003 
0005 
0007 
0009 
0011 
0013 
0015 
0017 
0019 
0021 
0023 
0025 
0027 
0029 
0031 
0033 
0035 
0037 


BEEP @ IF NOT FLAG(3) THEN GDISP A$ 


FOR E2=1 TO E9 @ PRINT CHR$(27)8"*b146u" à FOR E3=1 TO 146 à PRINT CHRSCNUM(CISLE3,E3))) 
NEXT E3 à NEXT E2 @ E=E+1 à IF E<9 THEN DISP "ATTENDEZ..." @ WAIT 1 @ GOTO 204 

BEEP 

BEEP 

BEEP 

PRINT CHR$(27)&"*r8" 


PHIDTH Z @ ENDLINE CHRS(10)&CHRS(13) à POKE "2F6E7","0" 
DESTROY C1$,C2$,E,N1,N2 @ IF NOT FLAG(3) THEN DESTROY E9 
RETURN 

LINPUT "CREER FICHIER ? ";R4S à IF R4S=! 





'N“ THEN GOTO "MGRAPH" 






IF RGSA"!N" AND R4S#"O" THEN DISP MATTENDEZ. à GOTO 236 
IF R2$="O" THEN BEEP @ DISP "NOM DU FICHIER ? " @ WAIT 1 à GOTO 230 
SFLAG -1 @ PURGE R4$ à CREATE DATA R4$,2,1060 à CFLAG -1 


ASSIGN #1 TO R4S à PRINT #1,0;C$ à PRINT #1,1;A$ 
ASSIGN #1 TO * 

PMGRAPH/ à 

LINPUT IMPR HULTIFICHIERS ? ";M1$ 

1F MIS#"O" AND MIS#"N" THEN BEEP à GOTO 244 

IF MI$="N" THEN GOTO 274 

IF MI$="O" THEN SFLAG 3 à INPUT NBRE DE FICHIERS ? ","1";M1 

OPTION BASE 1 à DIM MS(M1) 

FOR 1=1 TO M1 8 ON ERROR GOTO 256 

DISP STRS(I)&" " 9 WINDOW 4 à LINPUT "EME FICHIER ? ";M£C1) à WINDOW 1 à OFF ERROR 
IF MSCI)=" OR LENCMS(1))>8 THEN BEEP à GOTO 256 

MEXT 1 

INPUT MECHELLE VERTICALE ? ","6";E9 

1F E9<1 THEN BEEP à GOTO 262 

FOR 1=1 TO M1 à DIM C$[1056] ,A$1132] 

ASSIGN #1 TO M$(1) à READ #1,0;C$ à READ #1,1;A$ @ ASSIGN #1 TO * à GOSUB "PRGRAPH" 
NEXT 1 

DESTROY E9 à CFLAG 3 

LINPUT "AUTRE JOB ? 
1F M2$#"O" AND M2S#"N" THEN BEEP à GOTO 274 

IF M2$="O" THEN GOTO 2 

IF M2S="N" THEN GOTO 282 

DESTROY A$,B$,CS,MS,M1S,M2S,RS,R1S,R2S,R3S,R6S,PS,C,M,M1,X,Y,Z,21 à CFLAG 0,1,3 9 FIX 2 











REM PROGRAMME EDITEUR DE GRAPHIQUES SUR IMPRIMANTE THINKJET (C) JEAN-PAUL NALIN 1990 

REM LIBERATION DES VARIABLES UTILISEES DANS LE PROGRAMME 

REM IL S'AGIT LA DE LA FONCTION PERMETTANT "L'INTERCONNEXION" ENTRE L'AFFICHAGE ET... 

REM L'IMPRIMANTE. A$ EST LA VARIABLE D'ECRAN ET C$ POUR L'IMPRESSION SUR LA THINKJET 

REM POUR MEMORISER LE NOMBRE DE CARACTERES PAR LIGNES (40,71,80,142) SUITE A CHOIX PREALABLE 
REM CELA EST NECESSAIRE POUR PASSER DU MODE TEXTE AU MODE GRAPHIQUE ET VICE VERSA 

REM CETTE OPTION SERT A L'IMPRESSION DE BROUILLON(S) DE TRAVAIL, CE QUI EST MOINS FASTIDIEUX 
REM QUE DE LES FAIRE A LA MAIN : IL FAUT UN BROUILLON PAR ECRAN À DESSINER 

REH ON A LA FACULTE D'EN IMPRIMER AUTANT QUE NECESSAIRE À CE STADE 

REM EDITION FORMATTEE, BIEN ENTENDU 

REM ENTETE DU DOCUMENT 

REM IDEM 

REM IMPRESSION COMME EVOQUE 

REM IDEM ET FORMATTAGE DU NUMERO DE RANG 

REM IDEM 

REM IDEM 

REM IMPRESSION LIGNE A LIGNE DES RANGS VERTICAUX 

REM FIN DE DOCUMENT 

REM IDEM 
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0039 
0041 

0043 
0045 
0047 
0049 
0051 

0053 
0055 
0057 
0059 
0061 

0063 
0065 
0067 
0069 
0071 

0073 
0075 
0077 
0079 
0081 

0083 
0085 
0087 
0089 
0091 
0093 
0095 
0097 
0099 
0101 
0103 
0105 
0107 
0109 
0111 
0113 
0115 
0117 
0119 
0121 
0123 
0125 
0127 
0129 
0131 

0133 
0135 
0137 
0139 
0141 

0143 
0145 
0147 
0149 
0151 
0153 
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REM 


REM 


REM 


EN OUTRE, EFFECTUE UNE FIN DE PAGE POUR EVITER TOUTE CONFUSION 

FIN DE CETTE PREMIERE ROUTINE 

CHOIX ENTRE UN FICHIER DEJA CREE (FICHIER DATA) QUE L'ON PEUT DE CE FAIT, SOIT MODIFIER 
SOIT IMPRIMER TEL QUE OUBIEN ENCORE POUR EN IMPRIMER LES COORDONNEES 

CAS OU L'ON VEUT EN CREER UN NOUVEAU INITIALISATION DE LA VARIABLE D'IMPREESION 
CAS OU L’ON REPOND OUI AU LIEU DE DONNER LE NOM DU FICHIER 

LECTURE DU FICHIER DATA QUE L'ON REPREND LEQUEL CONTIENT LA VARIABLE D'AFFICHAGE... 
ET CELLE D'IMPRESSION 

LE NOM DU FICHIER REAPPARAIT À L'ECRAN, PUIS UNE SECONDE APRES L'AFFICHAGE GRAPHIQUE 
POUR IMPRIMER LES COORDONNEES POINT/POINT DU FICHIER REPRIS (INUTILE SI CREE, CAR VIDE) 
CAS OU L'ON NE REPOND PAS CORRECTEMENT A LA QUESTION 

SI REPONSE AFFIRMATIVE, EXECUTE L'IMPRESSION DES COORDONNEES DU FICHIER REPRIS 

CAS OÙ IL S'AGIT D'UN FICHIER CREE DONC VIDE ; INUTILE D’IMPRIMER ; SAUT AUX OPTIONS 
SI ON NE VEUT PAS LA LISTE ET QUE L'ON A REPRIS UN FICHIER, ARME FLAG 1 POUR OPTIONS 
SI ON NE VEUT PAS LA LISTE ET QUE L'ON A CREE UN FICHIER, VA EN SESSION GRAPHIQUE 
C'EST LA SOUS ROUTINE D’IMPRESSION DES COORDONNEES POINTS PAR POINTS 

L'ECRAN DU HP 71 COMPREND 8 LIGNES DE 132 CARACTERES => 1056 POINTS 

EN TETE DU DOCUMENT 

C5$ EST UNE SUBDIVISION DE C$ REPRENANT CHAQUE LIGNE HORIZONTALE D'ECRAN 

FORMATTAGE (ECRAN DE BAS EN HAUT) 

IDEM 

LE PIXEL (1,1) OU (Y,X) EST CELUI EN BAS A GAUCHE DE L'AFFICHAGE 

FORMATTAGE 

IDEM 

POUR DES RAISONS TECHNIQUES EVIDENTES, ON COMMENCE PAR LE BAS DE L'AFFICHAGE 
PASSAGE À LA LIGNE SUIVANTE 

AFFICHE LE NOM DU FICHIER REPRIS ET SON GRAPHIQUE CORRESPONDANT DURANT L' IMPRESSION 
FIN DE DOCUMENT : AVANCE DE DEUX PAGES POUR COMMODITE 

FIN DE ROUTINE 

IDEM ET RETOUR A LA ROUTINE APPELANTE POUR SUITE DU TRAVAIL 

AFFICHE LE GRAPHIQUE ET DEMANDE SI L'ON VEUT L'IMPRIMER 

CAS OU L'ON NE REPOND PAS CORRECTEMENT À LA QUESTION 

SAUT À LA ROUTINE D'IMPRESSION GRAPHIQUE ET AVANCE AGE 

LIBERATION DE LA VARIABLE R$ 

SELECTION POUR APPEL A LA ROUTINE POUR ALLUMER OU ETEINDRE DES PIXELS A L'ECRAN 

SI ON NE VEUT PAS SAUT AUX OPTIONS RESTANTES 

REPONDRE O SI AFFIRMATIF OU N SI NEGATIF 

SI AFFIRMATIF, VA A LA LIGNE DEMANDANT LES COORDONNEES DU PIXEL A ALLUMER 

SI NEGATIF, VA À LA LIGNE DEMANDANT LES COORDONNEES DU PIXEL A ETEINDRE 

CAS OÙ L'ON NE REPOND PAS CORRECTEMENT A LA QUESTION 

D'UNE PART... 

ET D'AUTREPART 

LA VARIABLE 1 ETANT À ZERO, LE PIXEL EST CONC ETEINT 

POUR INTERCONNEXION AVEC LA VARIABLE D'IMPRESSION 

D'UNE PART... (DE BAS EN HAUT) 

ET D'AUTREPART (DE GAUCHE A DROITE) 

LA VARIABLE I ETANT À 1, LE PIXEL EST DONC ALLUME 

AFFICHE "PIXEL E (ETEINT)"...ETC 

TRANSPOSITION ENTRE VARIABLE D'AFFICHAGE ET D'IMPRESSION (1ERE LIGNE HORIZONTALE) 
IDEM (2EME LGNE HORIZONTALE) 

IDEM C3EME LIGNE HORIZONTALE) 

IDEM (4EME LIGNE HORIZNTALE) 

IDEM (SEME LIGNE HORIZONTALE) 

IDEM (6EME LIGNE HORIZONTALE) 

IDEM (7EME LIGNE HORIZONTALE) 

IDEM (EME LIGNE HORIZONTALE) 

TRANSPOSITION ENTRE VARIABLE D'AFFICHAGE ET D'IMPRESSION 

IDEM 

















0155 REM IDEM 

0157 REM IDEM 

0159 REM IDEM 

0161 REM IDEM 

0163 REM IDEM 

0165 REM IDEM 

0167 REM IDEM 

0169 REM VIDE L'AFFICHAGE ET SI DEUXIEME INTERVENTION OU PLUS SUR UN PIXEL INITIALISE 

0171 REM LA VARIABLE RELAIS D'AFFICHAGE, L'UTILISE ET MET A JOUR LA VARIABLE D'AFFICHAGE 
0173 REM IDEM : ON VOIT DONC DISTINCTEMENT S'ALLUMER OU S’ETEIDRE LE PIXEL TRAITE A L'ECRAN 
0175 REM CALCULE L'EQUIVALENCE DES CONFIGURATIONS DE BITS D'AFFICHAGE 

0177 REM IDEM : LA VARIABLE D'AFFICHAGE AFFICHE 132 BARRES VERTICALES DE 6 PIXELS DE HAUT 
0179 REM MET À JOUR LA VARIABLE D'AFFICHAGE ET AFFICHE LE RANG ET LA VALEUR ASCII DU RANG 
0181 REM D'AFFICHAGE, AFFICHE ET SI NECESSAIRE REINITIALISE LA VARIABLE RELAIS D’AFFICHAGE 
0183 REM DEMANDE SI L'ON VEUT METTRE A JOUR UN AUTRE PIXEL 

0185 REM SI NEGATIF, SAUT AUX OPTIONS 

0187 REM SI AFFIRMATIF ARME LE FLAG O ET SAUT À LA ROUTINE POUR ALLUMER/ETEINDRE UN AUTRE PIXEL 
0189 REM POUR IMPRIMER LE GRAPHIQUE MIS A JOUR OU TEL QUE (SELON OPTIONS PRECEDEMENT CHOISIES) 
0191 REM SELON LE CAS, SAUT À LA ROUTINE D'IMPRESSION PUIS AUX OPTIONS 

0193 REM CAS OU L’ON NE REPOND PAS CORRECTEMENT A LA QUESTION 

0195 REM C’EST LE DEBUT DE LA ROUTINE D'IMPRESSION GRAPHIQUE (#TEXTE) 

0197 REM SELECTION DE L'EPAISSEUR VERTICALE DU PIXEL IMPRIME (1=1MM ENVIRON) CAS HONOFICHIER 
0199 REM CAS OU L'ON NE REPOND PAS CORRECTEMENT À LA QUESTION 

0201 REM DEBUT DE SESSION GRAPHIQUE ET AFFICHAGE D'UN TEMOIN À DROITE DE L'ECRAN 

0203 REM C2$ SERT AU CENTRAGE DU GRAPHIQUE (DENSITE 160/132) 

0205 REM ON COMMENCE PAR LA LIGNE "D'AFFICHAGE" DU HAUT 

0207 REM SI IMPRESSION MULTIFICHIER AFFICHE LE NOM DE CELUI EN COURS D’ IMPRESSION 

0209 REM POUR VOUS RECONFORTER, PUIS AFFICHE LE GRAPHIQUE EN COURS D’ IMPRESSION 

0211 REM SELON CRITER MONO/MULTI FICHIER 

0213 REM IMPRESSION DE LA LIGNE GLOBALE À L'ECHELLE VERTICALE PREALABLEMENT CHOISIE 

0215 REM ET... D'UNE 

0217 REM ILLUSTRATION SONORE 

0219 REM IDEM 

0221 REM IDEM 

0223 REM FIN D'IMPRESSION EN MODE GRAPHIQUE POUR LA THINKJET 

0225 REM ET RETOUR AU MODE TEXTE POUR LA THINKJET 

0227 REM LIBERATIONS DE VARIABLES UTILISEES TEMPORAIREMENT 

0229 REM FIN DE ROUTINE 

0231 REM POUR CREER UN FICHIER DATA DE CE QUE L’ON VIENT DE FAIRE (MISE A JOUR OÙ CREATION) 
0233 REM SI AFFIRMATIF LE FICHIER DATA SERA TOUJOURS DE 2120 OCTETS 

0235 REM CAS OÙ L’ON REPOND O (OUI) AU LIEU DE PRECISER LE NOM DU FICHIER 

0237 REM CREE OU MET A JOUR LE FICHIER DATA EN QUESTION 

0239 REM IDEM 

0241 REM FIN DE ROUTINE 

0243 REM ROUTINE POUR IMPRIMER PLUSIEURS GRAPHIQUES SUPERPOSES SANS BLANCS ENTRE EUX (IMAGE) 
0245 REM AINSI L'ON PEUT IMPRIMER UN NOMBRE ILLIMITE DE PAGES GRAPHIQUES EN CONTINU (PATIENCE) 
0247 REM CAS OU L'ON NE REPOND PAS CORRECTEMENT A LA QUESTION 

0249 REM SI NEGATIF, SAUT AUX OPTIONS 

0251 REM SI AFFIRMATIF, ARME LE FLAG 3 ET DEMANDE LE NOMBRE DE FICHIERS À TRAITER 

0253 REM LESQUELS PEUVENT RESIDER INDIFFEREMENT EN RAM OU CASSETTES 

0255 REM SOLLOCITATION DU NOM DE CHAQUE FICHIER ET TEST DE REPONSE VALIDE 

0257 REM IDEM 

0259 REM IDEM 

0261 REM FIN DE SAISIE DES NOMS DE FICHIERS 

0263 REM SELECTION DE L'EPAISSEUR VERTICALE DU PIXEL IMPRIME (1=1MM ENVIRON) ET ARME LE FLAG 3 
0265 REM CAS DE REPONSE INVALIDE 

0267 REM ACCES SEQUENTIELS AUX FICHIERS DATA CONCERNES AINSI QU'A LA ROUTINE D'IMPRESSION 
0269 REM EN MODE GRAPHIQUE 
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0271 REM FIN DE ROUTINE 

0273 REM LIBERATION DES VARIABLES TEMPORAIRES ET DESARMEMENT DU FLAG 3 
0275 REM POUR CONTINUER SUR UNE AUTRE SESSION GRAPHIQUE 

0277 REM CAS OU L'ON NE REPOND PAS CORRECTEMENT À LA QUESTION 

0279 REM SI AFFIRMATIF, RETOUR EN DEBUT DE PROGRAMME 

0281 REM SI NEGATIF, LIBERE LES VARIABES ET DESARME LES FLAGS DU PROGRAMME 
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LE COIN DES LHEX 


Comme de coutume, cette rubrique contient la liste des codes hexadécimaux des fichiers Lex 
parus ce mois-ci. 


Rappelons ce quest un fichier Lex : c’est un programme pour le HP-71, en assembleur, qui 
apporte de nouvelles fonctions. Celles-ci sont utilisables directement, ou dans des programmes 


Basic. 


Pour bénéficier de ces nouvelles fonctions, vous n’avez pas besoin de programmer vous-même en 
assembleur, ni de posséder un module Forth/Assembleur. 


I suffit de recopier le petit programme basic "MAKELEX" ci-dessous, de le lancer et de recopier 
les codes du fichier Lex désiré. Quand vous avez fini, les nouvelles fonctions sont accessibles, 
après avoir éteint et rallumé votre HP-71. 


Si l'erreur "Erreur de somme" apparaît, vérifiez la ligne que vous avez introduite. 


Vous trouverez donc le Lex CHARLEX nécessaire à la rédaction de votre article (voir "Ah ! Vous 
écrivez !”), ainsi que le Lex de programmation structurée de ce mois-ci. 


CHARLEX 


TRICATLX OCTCAT XWORD 092049  TRICAT XWORD 092050 





10 CALL MLEX @ SUB MLEX à SFLAG -1 à PURGE AH @ INPUT "Nb. d'octets: 
20 CREATE DATA AH,1,N-4 @ A=HTD(ADDR$("AH")) à B=A à GOSUB 130 

30 Q=1 à X=0 à INPUT "000: ",P$;A$ à CS=A$ à S=0 à GOSUB 90 

40 Q=2 @ X=1 8 GOSUB 80 à AS=ASECS à A=A+37 à N=N*2+37 à Q=3 à SFLAG 5 à FOR X=2 TO N DIV 16-1 
50 GOSUB 80 à C$=C$[5*FLAG(5)+1] à POKE DTHS(A),CS à A=A+16-5*FLAG(5,0) à NEXT X à Q=4 


":N à LC OFF 


S 





60 DISP DTHS(X) [3]; à INPUT “: ",PS[1,MOD(N,16)];C$ @ GOSUB 90 
70 POKE DTHS(A),CS @ POKE DTHS$(B),A$ à CFLAG -1 à END 

80 DISP DTH$(X)[3]; à INPUT ": ",PS;C$ 

90 DISP DTH$(X)[3]; @ INPUT " sm 





100 M=S & FOR Z=1 TO LENÇCS) à M=NUH(CS[Z1)+M+1 à NEXT Z 

110 IF D$=DTHS(MOD(M,4096)) [3] THEN GOSUB 130 à S=M @ RETURN 

120 DISP "Erreur de somme" à BEEP à P$=C$ à POP à ON Q GOTO 30,40,50,60 
130 P$= " @ RETURN 
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CHARLEX 


000: 
001: 
002: 
003: 
004: 
005: 
006: 
007: 
008: 
009: 
O0A: 
008: 
00c: 
00D: 
00€: 
O0F: 
010: 
011: 
012: 
013: 
014: 
015: 
016: 
017: 
018: 
019: 
OA: 
018: 
O1C: 
01: 
O1E: 
OF: 
020: 
021: 
022: 
023: 
024: 
025: 
026: 
027: 
028: 
029: 
O2A: 
028: 
O2C: 
020: 
02€: 
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01234567B9ABCDEF 


34841425C4548502 
802E000000000000 
SE4001EFF0000000 
FE0000000800001F 
F31BF9614000328F 
38F14A11D810AD23 
07D532BFB8FD7911 
11AD754D7A101743 
11014D1CB15D0000 
71450375FF864834 
5655581008355654 
5810070507701724 
7700775070077517 
2077040708364545 
4A30000449724000 
0808094A2C180814 
A464242008355455 
581000054c714000 
0c3142404C700832 
41414A70002078A0 
2F30000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
000000000000080€ 
1A28080008080A2C 
180008040E340800 
08001E3018000000 
0000000000000000 
0000000000000000 
0000000000000000 
0201000000010200 
0000000201020000 
0001000100000002 
0102010000000000 
0000000000000000 
045E755142400101 
0101010000000000 


624 octets 


Eu] 





02F: 0000000000000000 
030: 0000070507000000 
031: 00000000083444C4 
032: 44400D7901112D70 
033: 050D750509700000 
034: 0D70000000384540 
035: 4020014E322E3140 
036: 084E794142400000 
037: 00000000002€4559 
038: 3200000000000000 
039: 0000000000000026 
034: 5556587008365556 
038: 5810083645464830 
03: 0832414248700024 
03D: 5655587008345655 
03E: 5810083446454830 
03F: 0C3042414C700024 
040: 5556587008355654 
041: 5810083546444830 
042: 0C3142404C700025 
043: 5455587008355455 
044: 5810083544454830 
045: 0C3140414C700875 
046: 1414187000044972 
047: 40000E3159454E30 
048: O0C7A0F7949400024 
049: 5554587000084A71 
04A: 40000C523A262D10 
048: 0424587458400875 
04C: 1415187000094A70 
04D: 4000083544454830 
O4E: 0C3140414C300074 
O4F: 5655545000054071 
050: 40000 





AFS 
E18 
56 
486 
800 


E97 
1E7 


IOTEST 191 octets 


0123456789ABCDEF 


94F4455435450202 
+ 802E000000000000 
28100cE737300000 
F710000000000000 
041000F594F41573 
1FF008F625307D40 
51D104E€33300€ 178 
30c18604C27F2015 
760208F74030134A 
F24802180FE088D6 
12F07500C2430061 
008: 371F0F7F21451D5F 


sm 


35E 
682 


00C: 
00: 
00€: 
O0F: 
010: 
011: 
012: 
013: 
014: 
015: 
016: 
017: 
018: 
019: 
OA: 


TRANSLEX 


000: 
001: 
002: 
003: 
004: 
005: 
006: 
007: 
008: 
009: 
O0A: 
008: 
00€: 
00D: 
00€: 


010: 
011: 
012: 
013: 
016: 
015: 
016: 
017: 
018: 
019: 
OiA: 
018: 
O1C: 
010: 


0715571E508F1517 
1D51D980F526A825 
SOA0E27AB2A0E 15D 
7042032CFBBFAB81 
154331FFDSD0E415 
F596A1296561BF6F 
69E2COFéF6862551 
17ASAD3332008DA9 
3901751470507135 
17413706147c9061 
F508F2153717F15F 
7D52780644005269 
0E2080D51E5F7F15 
771D0F0614713507 
01F 


0123456789ABCDEF 


452514E435C45485 
802E000000000000 
AB100C5334300000 
F020000000000000 
0BE000FB0013000F 
7C43444423394525 
14E442431FFBFBCÉ 
3117F01882213606 
TTEF1301818FBC63 
1D88F064A1109DA3 
L&FFOOEE8B87733C 
3811C315D33ED107 
5033326A281108D2 
31467211c811815 
5516114A1C015901 


: CO1510A6E58E 1360 


B134A6050D8F064A 
1071348402080781 
8180D44908111360 
6763F1308F064A11 
09DAD232021EA322 
05108321A0DF8BA3 
c136E81341813101 
06110136c2134288 
F015A01608F015A0 
136E81340C54E2F3 
O7ACSAF22EA76A74 
S50B060D4800D6FE 
FAGDS3E1CF155707 
AGESC9633FF 


219 octets 


sm 














ANNEXE 1 INSTRUCTIONS DE L'ASSEMBLEUR 


0 bits 
00 RTNSXM 


2 bits 
01 RIN 
06 RSTK=C 
0B CSTEX 


4 bits 
0E00 A=A&B 
0E05 C=c&8 
OEOA C=CIA 
0EOF C=CID 
OEF4 B=B£A À 
OEF9 B=BIC À 
OEFE A=AIC À 


2 bits 
OF RTI 


3 bits 

100 RO=A 

108 RO=C 

110 A=RO 

118 C=RO 

120 ARDEX 
128 CROEX 
130 DO=A 

135 D1=C 

13A ADOXS 
13F CDIXS 
144 DATO=C A 
149 DATI=A B 
14E C=DATO 8 


4 bits 

1500 DATO=A 
1550 DATI=C 
15A0 A=DATO 
15F0 C=DATI 


3 bits 
160 DO-D0+ 


4 bits 
19hh D0=(2) 


6 bits 
1Ahhhh DO=(4) 


7 bits 


18hhhhh D0=(5) 


3 bits 
1c0 D1=D1- 


4 bits 
1Dhh D1=(2) 


02 RTNSC 
07 C5RSTK 
OC P=P+1 


0E01 B=-B&C 
0E06 A=ARC 
0E08 
OEFO A=AËB À 
OEFS C=C&B A 
OEFA 
OEFF C=C!D A 





101 R1=A 
109 R1=C 

111 A=R1 

119 C=R1 

121 ARÎEX 
129 CRIEX 
131 D1=A 

136 CDOEX 
138 ADIXS 
140 DATO=A A 
145 DATI=C A 
14A A=DATO B 
16F 








1510 DATI=A 
1560 C=DATO 
1580 A=DATI 


170 D1=D1+ 





03 RTNCC 
08 CDRST 
0D P=P-1 


0E02 C=C&A 
0E07 C=C&D 
0EOC B=BIA 
OEF1 B=B&C A 
OEF6 A=A8C A 
OEFB D=DIC A 


102 R2=A 
10A R2=C 
112 A=R2 
AA CER2 
122 AR2EX 
12A CR2EX 
132 ADOEX 
137 CDIEX 
13C DO=CS 
141 DATISA À 
146 C=DATO A 
148 A=DATI B 


1520 A=DATO 
1570 C=DATI 
15C0 DATO=C 


180 DO=D0- 


04 SETHEX 
09 c=sT 


0E03 D=D&C 
0E08 A=A1B 
OEOD C=CIB 
OEF2 C-C&A À 
OEF7 C=C8D A 
OEFC B=BIA A 


103 
108 
113 
118 
123 
128 
133 
138 
130 
162 
147 
140 


R3=A 
R3=C 
AER3 
C=R3 
AR3EX 
CR3EX 
AD1EX 
DO=AS 
Di=cs 
A=DATO A 
C=DATI A 
DATO=C B 


1530 A=DAT1 
1580 DATO=A 
15D0 DATI=C 


05 SETDEC 
OA ST=C 


0E04 B-B&A 
0E09 B=BIC 
OEOE A=AIC 
OEF3 D-D&C À 
OEF8 A=AIB A 
OEFD C=CIB A 





104 Ré=A 
10C R4=C 
114 A=R4 
11C C=RG 
124 ARGEX 
12C CR4EX 
134 DO=C 
131 D1=AS 
13E CDOXS 
143 A=DATI A 
148 DATO=A B 
14D DATI=C B 


1540 DATO=C 
1590 DATI=A 
15E0 C=DATO 
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6 bits 
4Ehhhh D1=(4) 


7 bits 
1Fhhhhh D1=(5) 


2 bits 
20 P= 


6 bits 
30h..h LCHEX 


3 bits 
4xx GOC 
6000 GoTo 


4 bits 
6300 NOP4 


5 bits 
64000 NoP5s 


4 bits 
7000 GOSUB 


3 bits 
800 OUT=CS 
805 CONFIG 


4 bits 
8000 INTON 


3 bits 
809 C+P+1 


4 bits 
80C0 C=P 


3 bits 
B0E SREQ? 


4.bits 
80FO CPEX 


3 bits 
810 ASLC 
815 BSRC 
O1E CSRB 
828 HP=0 


5 bits 
83100 ?XM=0 


3 bits 
840 ST=0 


5 bits 

86000 ?ST=0 
8A100 ?B=C A 
BA600 ?A#C A 





4hh RTFC 


801 OUT=C 
806 C=ID 


808F INTOFF 


B0A RESET 


80D0 P=C 


811 BSLC 
816 CSRC 
81F DSRB 
82F CLRHST 


83200 ?S8-0 


850 ST=1 


87000 ?ST=1 
8A200 ?C=A A 
BA700 ?C#D À 


420 NOP3 Shh GONC 
802 A=IN 803 C=IN 
807 SHUTDN 

808 BUSCC 

012 CSLC 813 DSLC 
817 DSRC 81C ASRB 
821 XM=0 822 SB=0 


83400 ?SR=0 83800 ?MP=0 


88000 ?P# 89000 ?P= 
8A300 ?C=D A BA4OO ?B#A À 
8A800 ?A=0 A BA900 ?B=0 A 


500 RTNNC 


804 UNCNFG 


814 ASRC 
81D BSRB 
824 SR=0 


BA000 ?A=B A 
8A500 ?B#C À 
BAA0O ?C=0 A 
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BADO0 ?B#0 A 
88200 ?C>A À 
88700 ?D<C A 
88C00 ?A<=B À 


8AB00 ?D=0 A 
88000 ?A>B A 
8B500 ?B<C A 
&BAOO ?C>=A A 
8BF00 ?D<=C À 


BACO0 ?A#0 A 
88100 ?B>C A 
08600 ?C<A A 
88800 ?D>=C A 


6 bits 


8Chhhh GOLONG 


7 bits 
8Dhhhhh GOVLNG 


6 bits 
8Ehhhh GOSUBL 


7 bits 
8Fhhhhh GOSBVL 











5 bits 

90000 ?A=8 90100 ?B=C 90200 ?C=A 
90500 ?B#C 90600 ?C#A 90700 ?C#D 
90A00 ?C=0 90800 ?D=0 90c00 7A#0 
90F00 ?D#0 98000 ?A>B 98100 ?B>C 
98400 ?A<B 98500 ?B<C 98600 ?C<A 
98900 ?8: 98A00 ? 98800 ?D>=c 
98E00 ?C<= 98F00 ? 

3 bits 

A00 A=A+B AO B=B+C A02 C=C+A 
A0S B=8+B A06 C=C+C A07 D=D+D 
AA A=A+C A0B C=C+D AOC A=A-1 
AOF D=D-1 A80 A=0 AB1 B=0 
AB4 A=B ABS B=C AB6 C=A 
AB1 C=8 ABA A=C ABB C=D 
ABE CAEX ABF CDEX B00 A=A-B 
803 D=D-C 804 A=A+1 BO5 B=B+1 
B08 801 C=C-B BOA A=A-C 
BOD B0E C=A-C BOF D=C-D 
B82 CSL B83 DSL B84 ASR 
B87 DSR B88 A=-A B89 B=-B 
BBC A=-A-1 BBD B=-B-1 B8E C=-C-1 
2 bits 

CO A=A+B A C1 B=B+C A C2 C=C+A À 
C5 B-B+B A cé C=C+C A C7 D=D+D A 
CA A=A+C A CB C=C+D A CC A=A-1 À 
CF D=D-1 À DO A=0 A Di 8-0 À 
Dé A=B A DS B=C A Dé C=A À 
D9 C=B À DA A=C A DB C=D A 
DE CAEX A DF DCEX A EO A=A-B À 
E3 D-D-C A E4 A=A+1 A ES B=B+1 À 
EO B=B-A A E9 C=C-B A EA A=A-C A 
ED B=C-B A EE C=A-C A EF D=C-D A 
F2 CSL A F3 DSL A F4 ASR À 
F7 DSR À F8 A=-A À F9 B=-B À 


BAEO0 ?C#0 A 
8B300 ?D>C A 
88800 ?A>=B A 
88D00 ?B<=C A 


90300 ?C=D 
90800 ?A=0 
90D00 ?B#0 
98200 ?C>A 
98700 ?D<c 
98C00 7A<=B 


A03 D=D+C 
A0B B=B+A 
AOD B=B-1 
AB2 C=0 
ABT D=C 
ABC ABEX 
B01 B=B-C 
B06 C=C+1 
B0B C=C-D 
B80 ASL 
B85 BSR 
B8A C=-C 
B8F D=-D-1 


C3 D=D+C A 
C8 B-B+A A 





DC BAEX A 
E1 B=B-C A 





FO ASL A 
F5 BSR A 
FA C=-C A 


BAFO00 ?D#0 A 
8B400 ?A<B A 
88900 ?B>=C A 
OBEO0 ?C- 








90400 ?A#8 
90900 ?8=0 
90E00 ?C#0 
98300 ?D>C 
98800 ?A>=B 
98000 ?B<=C 





ABD BCEX 


B02 “A 
B07 D=D+1 
BOC A=B-A 
B81 BSL 
B&6 CSR 
B8B D=-D 





C4 AA+A À 





D3 D=0 A 
DB B=A A 
DD CBEX A 
E2 C=C-A À 
E7 +1 À 
EC A=B-A À 
F1 BSL A 
F6 CSR À 
FB D=-D A 
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